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In de vorige publikatie heb ik geschreven hoe wij de 

HSL gebouwd hadden. Bij navraag in Beek bij Elektuur 
bleken de Eprom kaartjes nog steeds leverbaar. 

Naar aanleiding van de veelvuldige vraag, wij bezitten 
geen DAI-VC154i interface maar willen toch graag een 

HSL bouwen, kunnen jullie niet de software publiceren 
volgt hier het complete software programma. 

Deze listing is NIET hetzelfde als wat er in onze DAI — 
VC1541 DOS staat,maar een op zich zelf staand programma. 
Aan het einde van de listing staat "ENTRY FROM DAI 

POWER ON/RESET". Dit stukje wordt alleen gebruikt wan: 
neer de interface of HSL beschikt over een hardware 
Power On initialisatie.Mocht U hier over beschikken,in 
b.v. een DCR, dan moet U dit stukje programma nog toe- 
voegen. 

Het schema voor de Power On initialisatie hardware zal 
ik ook publiceren. 

Het is de bedoeling dat deze software in een Eprom komt 
welke ор de "X" bus wordt geplaatst. 

Bent U in het bezit van een DCR dan moet U dit programma 
combineren met Uw DCR software,assembleren en opnieuw in 
een Eprom programmeren. 

Ik raad U aan hiervoor een andere Eprom te kopen en de 
oude niet te wissen totdat U er zeker van bent dat al- 
les werkt. 

Macht U niet beschikken over een "X" bus interface print 
dan vindt U hierbij het schema hoe U er een kunt bouwen. 
Dit is geen groot probleem,het gaat op een stukje Vero- 
board van 7x5 cm. 


Mede gelet op de feiten dat Eproms van het type 2764 en 
27128 momenteel goedkoper zijn dan de 2716 en 2732, 

en de meeste programma’s 8k byte of groter zijn,heb ik 
een gewijzigde HSL gemaakt. 

Hiermede is het mogelijk zelf een keuze te maken uit drie 
Eprom type’s afhankelijk van de lengte van het programma. 
Hier zijn ook beperkingen aan verbonden n.l: 

Een programma moet in een halve of hele Eprom passen. 

U kunt maar twee Eproms gebruiken voor maximaal 4 program- 
ina? е. 

Gebruikt U twee 27128 dan kunt U hierin 4 programma's 
opbergen van elk 8k byte groot. 

De situatie veranderd natuurlijk wanneer U 27256 oe: 
bruikt. 

Hierin kunt U een 32k byte programma opbergen,maar deze 
Eproms zijn momenteel nog duur. 


Beschrijving schema. 





In deze versie is de prom van het type 82823 komen te 
vervallen. Hierdoor із het niet meer mogelijk om een pro- 
gramma over meerdere Eproms te verdelen. 

Hiervaor is in de plaats gekomen een 7474 welke het 
mogelijk maakt om d.m.v. PBS een van de twee Eproms te 
selecteren. 
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Het signaal PB2 wordt nu gebruikt om te kunnen schakelen 
tussen de onderste en bovenste helft van een Eprom. 

Door de punten a t/m h op verschillende manieren met ei- 
kaar door te verbinden krijgen we een aantal mogelijk- 
heden om met diverse typen van Eprom te werken. 


Selectie Tabel. 














Eprom Geheugen Door Selectie 
type Inhoud verbinding commando 
2764 2 x BK a-f HSL en HSL2 
2764 4 x AK е — + HSL,HSL1, 
HSLZ en HSLS 
27128 2 x 16K a — +£ 
b — а HSL en HSL2 
27128 4 x 8K a — + HSL, HSL1, 
e-g HSL2 en HSL3 
27256 а — +£ 
27256 2 x 32K b - g HSL en HSL2 
с 
27256 a س‎ + 
4 x 16K b-9 HSL, HO 1, 
e-h HSL2 en HSL 


ik hoop dat ik U hiermede van genoeg informatie heb voor- 
zien om een HSL te bouwen. 

Het programmeren van de Eproms moet U zelf verzorgen. 
Denk aan de eerste bytes zoals beschreven in mijn vorige 
artikel. 

De praktische realisatie van dit project laat ik aan U 
over. 


Geleen, febr. 1986 
H- Rison 
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обоо TIT HIGH SFEED DATA LOADER V2.0" 
OOOO $ H 28-01-86 
0000 H :BY HENK RISON AND HEIN EOF 
9000 n  ХХКХКЖКЖЖЖКЖЖЖЖЖЖЖЖЖУЖКЖКЖ 
0000 H 
0000 $ DAT FOINTERS 
0000 І ЖЖААЖЖАЖАЖЖЖ 
ОООО #0061 MEMGIC EQU Preserved GIC~mode 
0000 2=0117 RDIFF EQU flag set while running input 
0000 9=0151 OTSW EQU Output switching 
0000 -0132 EFEPFT EQU sencading input pointer 
ОООО 2=0134 EFECT EQU encoded input count 
0000 $0135 EFS EGU encoded input switching 
ОООО  3-s01BO FILES EQU $number following commands 
OOOO 220296 INSW EQU input switching 
0000  2:0297 TABLE EQU sstart address table 
0000 23-0299 RSF EQU rescued stackpointer 
0000 4 during Comp, execution 
0000  9=02C4 KEREL EQU 2сан 
DOOD  32-O2EZ DINC EQU ФЕЗН 
0000 рат ROM ROUTINES 
0000 ECG 
0000  3-C14D EXIT EQU OC 14DH РОР H, D, B FSW, RETURN 
0000  3zDDAS EXITI EQU ODD4 EH РОР H, FSW, OMC, RETURN 
0000  3-C88F ENDCOM EQU OC8BFH jump if spec. action 
0000  3-CA34 LOOKC ЕСЦ осазан ifind instruction in table 
0000  9#DIiE2 INO EQU OD1E2H gif input from keyboard 
0000  9-D&695 MPTS1 EQU OD695H output one character 
0000 @=DAOB SYNERR Eau ODAOBH prun syntax error 
0000 @=DAFF FMSGR EQU ODAFFH sprint message 
0000  9-DDSE CRLF EQU ODDSEH sprint carr.return linefeed 
9000  3-DDB4 INSER EQU оррван input from RESTE 
0000 Әррр2 GIGNE EQU оррран sget char.from line neglect 
0000 Ж %ТАВ and SPACE 
0000 =DEOD NUMER EQu ODEODH scheck for number 
0000 GIC CONTROLLER PPI (9255) 
9000 ХХХ ХАЖ fee 
0000 ӘжҒЕОО GICPA EQU OFEOOH $I/0 porte 
0000  Q39«FEO1 GICFE EQU OFEOIH 31/0 port-E 
0000  Q3«FEO2 GICFC EQU OFEO2H PIZO port-C 
0000 @=FEOS GICCMD EQU OF EOSH icommand word 8255 (GIC) 
0000 H 
9000 ORG QF OOOH 
Fono š HOR ARR KKK K 
Fooo ;ENTRY POINTS 
ғооо $ ЖЖЖЖЖЖЖЖЖАЖЖЖ 
FOOD  CZ21FO REMS JME REM Execute REM statement 
БООЗ  C329F1 CRDL JMP HSL. Command read data fram EPROM 
ЕООФ DS 1ЕН 
Foal $ EXECUTE REM STATEMENT 
Fori HL 
Fo21 FS REM FUSH FSW 
Fo22 СЕ PUSH В 
Fo23 DS FUSH D 
FO24 ES FUSH H 
FO25 210400 LXI H OAH 
Fo28 39 DAD SF 
Fo29 229902 SHLD RSP 
FO2C OA LDAX B 
Fo2D FEA? CFI CASH 
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UNZ EXIT sthen pop а11:ғек 
INX B 
прах B 
INK А 
STA EFECT set EFECT 
MOV HE 
MOV L.C 
КОЗА 223201 SHLD EFEF T ;BC in EFEPT 
БОЗ) GEO MVI A iH 
FOEF  X23501 STA EF SW sinput from string 
FO42 AF MOV CLA 
FOAS  CDA7FO CALL FIND execute command 
FO46G AF XRA À 
FO47 3 STA EFSW sinput from keyboard 
FOAA STA 294H 
FOap DCR C 
FOJE  CAOBDA JZ SYNERR $ then "SYNTAX ERROR" 
FOS.  CZADCL JME EXIT spop alleret 
FOS4 REPLACED DATA INPUT ROUTINE (DINC) 
FOS 4 BARRON RR ЖЖ ЖЖК ЕЖ Ж ЖЖЖ ЖЖ 
КОЗА ES RDINC PUSH H 
FOSS 211701 LXI H RDIPF РӨЕПІРЕ) «НЕКЕ 
FOS 7E MOV A,M sget flag running inputs 
козо 23 INX H 
БОША Ве ORA M ycompare with flag running 
programs 
FONE éF MOV LAA $90 when both ©, else FF 
FOSC 363101 LDA sget output direction 
FOSF EFE ANI OF EH imask bit О 
Fol ES ARA l $result is 0,2 or FF 
FO62 El POF H 
FOOT C2B0FO JNZ CHID $when running something 
FOéé  CDBOFO CALL. CHID деб inputs 
Е069 FS PUSH FSW 
Боба БЕОр CPI орн 5 "CR" P 
FoéC CABBFO 42 IFCR 
FOOF  FEO9 CPI 9H 3 "TAB" 7 
Fo71  C27EFO JNZ RDINC 1 3dMF else 
FO74 BEOU MVI A OCH 
F076  CD95D6 CALL. MPT SS 1 iClear screen 
FO79 ZEZA MVI A ген 
FO7B  CD9SD6 CALL. METIL sprint "x" 
РОТЕ Fi RDINCI РОР FSW 
FO7F DV RET 
FORO (CHECK INFUT DIRECTION 
FORO ая 
FORO 369602 CHID LDA INSW дес DINC flag 
FORE E601 ANI ін 
FO8S  CAEZDI JZ INO scheck for new key pressed? 
FO88  C3ESO2 JME DINC iget input from RS2Z 
FOSR SINPUT IS CARRIAGE RETURN 
FOE 1 ДАҒЫ ДАЛАДА ДАЛА PA Ne бы D Ar БЫ, V у Mg Ag Ar MA Ag a EM a 
FOBB 35 IFCR DCR M 
FOSC Fi POP PSW 
FOSD 218ҒОВ LXI H ENDCOM Pjump.on carry if spec. action 
F090 ES XTHL. ;ENDCOM on stack 
Foni 210000 LXI H он 
ЕО94 x9 DàD SF sget SP in HL 
FO9S 229902 SHLD RSF ssave it in RSP 
FO9R GEO! MVI С 1Н 
FO9A DS FUSH D 
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Fo9B CDA7FO CALL FIND find comm. and perform it 
Fo9E Di POP D 
FO9F El POP H 
FORO AF XRA A 
FOAL 329002 STA 29 AH set (O29A =O (MAF IL) 
FOR4 CS45DD JMP EXITI рор Ha PSW: CMG: RET 
FOA7 SFIND INSTRUCTION IN TABLE AND PERFORM IT 
ғоа? DZ ХХХ ХКК HEC CCE OK 
FOA7 289702 FIND LHLD TABLE get start addr. cmnd, table 
FOAA 1Е01 FIND MVI E 1H 
FOAC 76 MOV &,H 
FOAD BS ORA L. 
FOAE C8 RZ gif zero end of стас. table 
FOAF CS PUSH B 
FORO  CD34CA CALL. LOOKC find comm. in table 
ЕОВЗ DABEFO JC FIND2 when found 
FOBA Cl FOF E relse 
FOR? 7E MOV А, M st 
FOES 23 INX H padde, in table where 
FOR? ёё MOV HAN instr. string can be found 
FOBA өк MOV L,A 9; 
FOBB эаағо JME FIND1 check next one 
FOBE SE FIND? MOV E, M % (дек addracmnd. after 
FOBF 23 INX H ф string іп DE 
FOCO Ge MOV D,M р) 
FoCi  CDCDFO CALL. NUCE check for more cmnde OF number 
FOCA 79 MOV А, С 
FOCS Cl FOP B 
FOCA 4F MOV CLA 
FOC7  2107FO LXI H FIND 
FOCA ES PUSH H preturn addr. FIND on stack 
FOCB ЕВ XCHG sget addr. DL, command in HL 
FOCC E9 FCHL. perform command 
FOCD CHECK FOR NUMBER AND/OR MORE COMMANDS 
FOOD g INIHI P PNA ANA NING бы A A Me D бы Au бы бы бы ты Pa ы бы бы Ar бы ы ы ы e 
FOCD  CDDZDD NUCOM CALL. GIGNE $get char, from line,neglect 
TAS/ SPACE 
FODO  CDODDE CALL NUMER icheck if char.is number 
FODE  DAD9FO JG NUCOMI 
FONG  3EZF MVI A ЗЕН 
FOD8 ор DER C 
FOD9 OC NUCOML INR С spoints to next char. 
FODA резо SUI зон 
FODC 328001 STA FILES sstore HEX val. of nr in FILES 
FODF  CDD2DD NUCOME CALL GIGNE get char .neglect tab/space 
FOE2 oc INK С points to next char. 
FOES FEZA CPI ЗАН 
FOES CB RZ Pireturn when "sn 
FOES  FEOD CFI ODH 
FOES C8 RZ return when "CR" 
FOE9  3ABOO1 LDA FILES sget FILES 
FOEC B7 ока а 
КОЕР  F2DFFO JF NUCOM2 get next Char,until FILES=FF 
FOFO  OEO1 MVI € 1H 
FOF2 117EFO LXI D RDINCi salternative return асам, РОСС 
FOFS C9 RET 
FOFé PINITIALISE HDL SYSTEM 
FOFé 1 КЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
FOFé FS INIT FUSH FSW 
FOF7 CS FUSH В 
FOFB DS PUSH D 
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F152 
FINA 
F155 
F157 
FLSA 
FLSA 
F1SD 
FLSE 
F161 
It 
F145 
F166 
F169 
Fisa 
F18A 
Е1&А 
Е16р 












20402 
2184FOQ 
O 


SABOO L 
B7 


FZS7F1 
*C 
S2HOO01 
FEO4 
FROEDA 
CDAGF 1 
SABOO1 
о? 

07 
CALO 
SAO FE 
SEO 
S203FE 


SRQXFE 


GD7FF1 
FEFD 
СӘВЕРІ 


CD7FF1 
oF 
CD7FF1 
67 
CD7FF1 
57 
CO7FF 1 


SF 


CD7FF1 
77 
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TIGR SPEE 


FUSH Fi 
MVI А. 
STA 

LXI H 
SHLD 
„KI H 
MVI A 
IRA 

OV MA 
XRA A 
STA 

-XI F 
SHLD 
MVI A 
STA 

LXI H 
SHLD 
MVI A 
STA 

JME 











D DATA LOADER 





COMTAB 


BLE 
INSW 


2H 








INSER 
4H 
AH 
DING 
EXIT 








V2.0 


s BAÓUD-r ate 

BAUD-rate register 
art ааа. ста. table 
tore it in TABLE 
saddr. DINC-flag 









iset flag for(0296) OÜR-O2 





; [load "JUMP DDB4" (INSER) 
$ into 0% O2ES 
š input from RS232 


: 3 


(РОР H, D, B, FSW, RETURN 


;READ DATA FROM HIGHSFEED DATA LOADER 
TOGO IO IOC OGIO ЖЖЖ ХХХ ХХ ХХ 


HSL. 


HSL. 10 


# LOAD МЕМ. ADDR. AND FRGRM LENGHT 


PUSH FSW 
FUSH D 
FUSH H 
LDA 

ORA A 

JF 

INR а 
STA 

CFI 

ЈЕ 

CALL. 

LDA 

RLE 

RLC 

ADI 

STA 

MVI A 
STA 

DER A 
STA 


FILES 
HSL 10 


FILES 
4H 
SYNERR 
SETGIC 
FILES 


LOH 
31CFB 
1H 

GICCMD 


GICCMD 


:gEPROM-bank number 

$If number give 

Else default is HSLO 
$ Syntax error if nr 54 
рілік GIC 

Get EFROM nr 

Into hinibbles РВ2,2 
yAdd HSL selects: Päss) 


+Address EFROM 
sReset HSL :PFCOsi 


Cancel reset: PCO-O 
IF EPROM MOUNTED 


pP Pu PA A бу e Du бу PA Мы о Du a a RAN Fie ы De Pr Pr a a A бы бы ы ee DA Ar a e 
H 


CALL. 
CPI 
JNZ 


sget startaddress 


read data fram H&L 


CALL. 
MOV L,A 
CALL 
MOV H,4 
CALL 
MOV D,A 
CALL 
MOV E,A 





HL ZO 

OF DH 

HL A0 

+ length 
451.50 


HL 20 
ASLO 


4SL 3o 


De Pru DN NA бы De ы бы б Pa у, De ы IS DS 


3 
HSL 20 





CALL 
MOV M,A 





48L. 30 


imove character into A reg. 


icheck for empty EPROM, wrong 


scaded and/or EPROM bank 


iLo-byte start addr. 


gHi-byte start addr. 


Hi-byte lenght of program 


ven 


„ombyte lenght of program 





e 


Read byte 
Store it in memory 
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Fiek 23 INX H 
FiF 1B DCX D 
F170 74 MOV A,D 
Fi71 82 ОКА E 
F172  C26A0F1 JNZ HSLEO Next byte if not ready 
F175 ісісее НЭХ 
F175 x Deo PU k Ar Ps Ar PT 
Е178 210000 LXI H OH 
F178 2201FE SHL.D GICFB reset addr.and count bits 
F17B El POF H 
Fi7C Di FOF D 
Fi7D Fi POF FSW 
Е17Е C9 КЕТ greturn to monitor Pr QF Mo 
Е17Е sread byte from HSL. 
F17F E 
F17F SECS HSL3O MVI À 3H 
Е1В1  3203FE STA GICCMD бей clocks: РСіші 
Е184 ZAOOFE LDA GICFA бей byte 
F187 F5 PUSH FSW 
F188 ЗЕО2 MVI A 2H 
F18A  3203FE STA GICCMD pelear сіссікеРСІш0 
F18D Fi POP PSW 
Fi8E C9 RET 
F18F ERROR ROUTINE 
F18F І ХЖЖЖЖЖЖЖЖЖЖЖЖ 
Fi8F 210000 HSL4O LXI H OH 
F192 2201FE SHLD GICFR sDisable HSL: РВС 
F195  CDFFDA CALL PMSGR sprint error message 
F198 C7DC DW ODCC7H $ "NOT AVAILABLE" 
F194 CSSEDD JMF CRLF scarr,return linefeed 
F19D 3 TABLE WITH COMMANDS 
Fi9D KOK KOK KOK OK KE KOK ORK OK KF ok KK 
Fi9D 03 COMTAR DB EH 
Fi9E 495340 DE "HSL? 1 command HSL 
FiAl 29F1 DW HSL. 
FIAS оо мағ 
F144 бо МОР 
FLAS 00 МОР 
F1A6 sset GIC for HSL 
FLAS : 8i I) Me бы Me Pa бы Pa бы ND V V Pa a Pa 
FiAé 3E98 SETGIC MVI A 98H > 
F1A8 З2ОЗЕЕ STA GICCMD Select GIC-mode 
ЕЛАВ 326100 STA MEMGIC keep memory 
FiaE Ca RET 
Е1АЕ #ENTRY FROM DAI FOWER ON/RESET 
FLAF BOO ORK KR KOK 
FiAF : ORG OF AF 2H 
FLAF 3 JMP INIT sinit Highspeed Data Loader 
FLAF END 
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1 ; RERO Ж 
2 Н зж РОР- RESET жә 
3 ; реа аа ааа ааа ааа 
4 ; 
5 ; door Mark Stout datum 1986 01 17 
6 D Verzusteringslaan 36, B 2700 Sint-Niklaas 
7 ; 
8 ; 
9 ;Dit programma bootst een RESET na, maar vernietigd de geheu- 
10 ;gen inhoud niet. Je kan zelf twee maal een tekst op het scherm 
11 ;zetten : de eerste іп de plaats van *DAI PERSONAL COMPUTER" 
12 ; de tweede in de plaats van "BASIC У1.1' 
13 :Je kan deze routine gewoon vanuit basic aanroepen door een 
14 ;CALLM$300. Zo kan je grappige effekten bereiken in je 
15 sprogramma's : de gebruiker is de wanhoop nabij omdat hij ziet 
16 ¿dat er een RESET gebeurt (zeker als je als tekst 'DAI РС" 
17 sneemt zoals bij een gewone reset), maar dan blijkt dat het 
18 smaar een FOP-RESET is. 
19 ;Je kan het natuurlijk ook gewoon gebruiken om je programma's 
20 swat op te fleuren. 
21 š 
22 š 
23 ORG 300H 
24 PUSH B 
25 LXI H OH ;het scherm wordt opgebouwd 
26 RST 5 ;zoals bij een gewone reset 
27 DB 9H 
28 CALL OC7FBH 
29 DCX H 
30 LXI D OC7EOH 
31 RST 5 
32 DB OH 
33. LXI H ТЕК5ТІ shier wordt de eerste tekst 
34 CALL ODAD4H sop het groene scherm gezet 
35 LHLD 2A5H ;verdere schermorganisatie 
36 LXI D 97BH 
37 DAD D 
38 MVI M SFH 
39 LXI D OFFDOH 
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40 DAD D 

4i CALL OCEFSH 

42 MVI D 12H 

43 NEXT CALL OCECFH 

44 DCR D 

45 JNZ NEXT 

46 RST 1 ¿wacht op een toets 

47 DB 15H 

48 LXI H OC7EEH ;terug naar gewone mode 0 

49 RST 5 shet basicprogramma is niet 

50 DB 6H sgewist ! 

51 LXI H TEKST2 shier wordt de tweede tekst 

52 CALL ODAD4H ;op het scherm gezet 

53 POP B 

54 RET ;terug naar basic 

55 ; 

56 ; ЖЖЖ eigen tekst Жж 

57 3 

58 seerst wordt er 6 keer een CHR$(13) geprint 

SPL V1.1 PAGE 2 

59 TEKST1 DB ODH, ODH , ODH , ODH , ODH , ODH 

60 ; 

61 ;hier mag je uw eerste tekst zetten : die bestaat uit 2 regels 

62 ;de eerste regel moet 18 characters bevatten 

63 ; (ееп tekort moet je aanvullen met spaties) 

64 ;richt hierop:***! Бы 

65 DB "DATA APPLICATIONS ' ; (voorbeeld tekst) 

66 форп :de volgen de tekst (spaties) kan je niet zien maar 

67 ;is noodzakelijk 

68 DB ! " 

69 ;hier moet је de tweede regel van de eerste tekst zetten 

70 DB "INTERNATIONAL! ; (voorbeeld tekst) 

71 DB ODH ;CHR$(13) 

72 DB OH ;einde eerste tekst 

73 H 

74 š 

75 TEKST2 DB OCH іміз scherm 

76 ;zet hier de tweede tekst (normaal 'BASIC V1.1) 

77 DB 'FOP-RESET door Mark Stout' ; (voorbeeld) 

78 DB ODH, OH ; CHR$(13) 

79 DB OH seinde tweede tekst 

80 END cont an р. 1$ 
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GEBRUIK 


Deze blokeditor stelt gebruikers van de Commodore-1541 
diskettedrive in staat om ieder blok van de schijf te halen, te 
veranderen en weer terug te schrijven naar de schijf. De 
blokeditor wordt gebruikt іп combinatie met de 'FDD-MONITOR', 

Op het scherm verschijnt de inhoud van het blok (256 bytes) in 
het linkerveld en rechts de ASCII-vertaling. Beide velden zijn via 
cursorbesturing eenvoudig te wijzigen. Met SH^ kan men de 
opeenvolgende blokken van een file оргоереп, 


TOEPASSINGEN 


Vooral voor het bestuderen van het beheer op de schijf, en voor 
ingrepen in de inhoudsopgave is het programma van nut. Deze bevinden 
zich op spoor 18. Voorbeeld: verandering van naam van schijf of een 
file of van het type, het in ere herstellen van geveegde files enz. 

Ook langere files kunnen op de schijf veranderd worden, maar dan 
riskeert men een ‘checksum-error'. De checksum (het 
controlegetal) wordt immers over de GEHELE file berekend van iks 
aantal blokken. Het staat dan ook aan het eind van de data en moet 
bij elke verandering aangepast worden. Dat is geen eenvoudige zaak. 


CHECKSUM 


In principe gaat het als volgt: je voert met het startgetal #56 
en het eerste byte een XOR operatie uit en schuift daarna de bits een 
plaats naar links (vermenigvuldig met 2). Een achtste bit komt op de 
nulde plaats. Weer XOR van het resultaat met het volgende byte en weer 
SHL 1; het resultaat is steeds de 'CHECKSUM'; enz. tot en met het 
laatste byte van de file. De berekening vindt plaats in een routine op 
#D30F. Kleine operaties, zoals het veranderen van het plaatsadres van 
een machinetaalprogramma kunnen met de editor zo eenvoudig uitgevoerd 
worden, Van deze twee bytes kan gemakkelijk 'met de hand' de checksum 
berekend worden. 


AANPASSING 

Voor andere systemen is het progamma aan te passen. De gebruikte 
FDD- commando's (OPEN,GET,PUT) zijn gebruikelijk en elk DOS bezit zijn 
eigen methode van spoor/blok- acces 














1 REM BLOKEDITOR;gebruikt in combinatie met FDD-MONITOR 
2 REM %%% C.W.A.van Dijk ~ Kampen *** 
10 CLEAR 2000:DIM X(16):COLORT 7 O 7 14:GOTO 90 
20 REM LEES ASCI UIT VIDEO RAM 
25 YD=(23-Y)*#86 
30 AD=#BFE7-YD-X(K)*2:B=PEEK(AD):GOSUB 50:BH=B SHL 4:B=PEEK(AD-2) 
:GOSUB 50:G=BH+B:RETURN 
40 REM MAAK GETAL UIT ASCI 
50 IF B<#30 THEN B=-#100: RETURN 
60 IF B<#3A THEN B=VAL(CHR$(B)) : RETURN 
70 ТЕ B<#41 THEN B=-#100: RETURN 
80 B=VAL(CHR$(B-#11) )+10: RETURN 
90 PRINT CHR$(12);:CURSOR 5,3:PRINT "CHAR.DEL: ANDER VELD" 
100 CURSOR 5,2:PRINT "SHIFT ^: VOLGEND BLOK" 
110 CURSOR 5,1:PRINT "SHIFT ";CHR$(140);": SCHRIJF BLOK" 
120 CURSOR 5,0:PRINT "TAB: NIEUW SPOOR/BLOK"; 
160 Ne1:IN$-" " 
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170 OPENA- £403: PRNT15=#40C : PUT4=#42D:GET4=#412:INPIS=#418: 
CLOSE4=#424 

180 RESTORE: FOR Kel TO 16:READ X(K):NEXT 

190 DATA 2,4,7,9,12,14,17,19, 22,24, 27, 29,32, 34, 37,39 

200 CURSOR 5,22: INPUT "SPOOR:";IN:IF IN>35 OR IN«1 THEN 220: 
GOSUB 1920:SP$=IN$ 

210 INPUT " - BLOK:";IN:IF IN<O THEN 220:GOSUB 1920:BL$=IN$: 
PRINT :GOTO 230 

220 PRINT "FOUTE INVOER":GOTO 200 

230 IF SP$=" 0" THEN 200 

240 OPEN$="#":CALLM OPEN4 ,OPENS 

250 OP$="U1 4 O"+SP$+BL$:CALLM PRNT15,0P$ 

260 REM VOLGEND SPOOR&BLOK 

270 OP$="B-P 4 0" 

280 САЫМ PRNT15,0P$:CALLM GET4,IN$:GOSUB 1900:SP1$-IN$: 
CALLM GET4,IN$:GOSUB 1900:BL1$-IN$ 

300 REM BLOK OP SCHERM 

305 IN$-" " 

310 CALLM PRNT15,0P$ 

320 CURSOR 0,20 

330 FOR I=0 TO 15:K=0:PRINT HEX$(I);" "; 

340 FOR J=44 TO 59:CALLM СЕТА, IN$:IN=ASC(IN$): 
PRINT RIGHT$("OO"éHEX$(IN),2); 

350 F CURX MOD 5-1 THEN PRINT " "; 

360 X=CURX:CURSOR J,CURY 

370 F IN<32 OR IN>127 THEN PRINT ".";:GOTO 390 

380 PRINT IN$; 

390 CURSOR X,CURY:NEXT:PRINT :NEXT 

400 CALLM CLOSE4 

410 CURSOR 0,20 

420 POKE 474,0:POKE #75,#FF 

999 REM *** TEKENVAK RECHTS brome 

1000 CURSOR 44, 20: XMN=44 : XMX=59 : YMN=5 : YMX=20 

1010 IF CURX<44 THEN 1210:GOSUB 1800:REM K BEREKENEN 

1020 G=GETC:IF G=8 THEN 1180:IF G=9 THEN 1600:IF G«16 THEN 1020 

1030 UIT=0:IF G>15 AND G«24 THEN ON G-15 GOSUB 1260,1280,1300, 
1340,1400,1410,1180,1180:IF UIT-O THEN 1010: 
ON UIT GOTO 1500,1550 

1040 PRINT CHR$(G);:X-CURX:CURSOR X(K),CURY: 
PRINT RIGHT$("OO"4HEX$ (G) ,2); 

1042 IF X<XMX+1 THEN 1044:IF CURY>YMN THEN 1043:CURSOR XMN,YMX: 
GOTO 1010 

1043 CURSOR XMN,CURY-1:GOTO 1010 

1044 CURSOR X,CURY:GOTO 1010 

1180 XMN=2:XMX=40:CURSOR X(K),CURY:GOTO 1210 

1199 REM ***ASCII-VAK LINKS’ 

1200 CURSOR 2,20: XMN=2 : XMX=40 : YMN=5 : YMX=20 

1210 IF CURX>40 THEN 1010:GOSUB 1800:REM K BEREKENEN 

1215 F CURX MOD 5=1 THEN CURSOR CURK+1, CURY 

1220 G=GETC:IF G=8 THEN 1390:IF G=9 THEN 1600:IF G<16 THEN 1220 

1230 UIT=0:IF G>15 AND G«24 THEN ON G-15 GOSUB 1260,1280,1300, 
1340,1400, 1410, 1390, 1390: 
ГЕ UIT-O THEN 1210:0N UIT GOTO 1500,1550 

1235 ТЕ (G>47 AND G<58) OR (G>64 AND G<71) THEN 1240:GOTO 1210 

1240 PRINT CHR$(G); :X=CURX:Y=CURY:CURSOR K+43,Y:GOSUB 25: 
IF G<32 OR G>127 THEN 1241:PRINT CHR$(G);:GOTO 1242 

1241 PRINT ",": 
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1242 


IF X<XMX+1 THEN 1244:1F CURY>YMN THEN 1243:CURSOR XMN,YMX: 





























—————— (d a £ arve 1 а me е ее меен Stet arts ен жәен ее өнөн де. Msn A © Qiíl-veld-- 
SFOOR:718 ~ BLOK:?1 

1204 C214 1241 2044 2031 ADAD ANAO 8080  ..... Ар” oaa 
ANAND AOAO AGHO 0000 0000 0000 0000 DEDD  ,,,,,,,,,,,,, " 
0000 С20Е 0141 2D44 2032 ANAND AOAQ ADAD saaa’ ASD Вестер 
айбай аоао аооо 0000 0000 0000 0000 0500 ....... аба ба ға ' 
0000 CEOF 0441 2D44 2033 ADAD ANAND оАо ree Dec 3,,,,,, 
AOAO aoao A000 0600 0000 0000 0000 0400 .............. 
0000 C215 0741 5252 4159 2069 4449 5400  ..... ARRAY-EDIT, 
ADAD ADAG AG00 0000 0000 0000 0000.0700 Png we DR an a а 
0000 C314 0841 5252 4159 4441 5441 2FAF soa ARRAVDATA/0 
AOAN. ADAD ADOO 0000 0000 0000 0000 0200 ................ 
0000 8218 0442 4153 424F-4F54 AOAO AOA sees BASROOT, OL. 
ADAD aono ADDO 0000 0000 0000 0000 0100 E ADE ei 
0000 C311 0042 4153 4943 4F44 452D 3200 - ..... BASICODE-S, 














AOAO абай аооо 0000 0000 0000 0000 осоо 
0000 8218 0742 4C4F 4245 4449 344F 522F 
4200 ОАО a000 0000 0000 0000 0000 0Е00 | oee eee 


CHAR, DEL, ANDER VELD 
SHIFT ^: VOLGEND BLOK 
SHIFT w: SCHRIJF BLOK 
TAB: NIEUW SPOOR/BLOK 


Veel plezier ermee, 
Kees van Dijk 
Watermunt 5 

8265 EL Kampen 





cont from Р- Ш 


0300 C5 21 00 00 ЕЕ 09 CD ЕВ C7 2B 11 EO C7 EF 00 21 
0310 3D 03 CD D4 DA 2A A5 02 11 7B 09 19 36 5F 11 DO 
0320 FF 19 CD F9 CE 16 12 CD CF CE 15 C2 27 03 CF 15 
0330 21 EE C7 EF 06 21 6C 03 CD D4 DA C1 C9 OD OD OD 
0340 OD OD OD |44 41 54 41 20 41 50 50 4C 49 43 41 54 
0350 49 4F 4E 53 20] 20 20 20 20 20 20/20 20 49 ДЕ 54 
0360 45 52 4E 41 54 49 4F ДЕ 41 4C}OD 00 OC [46 4F 50 
0370 2D 52 45 53 45 54 20 20 20 64 OF 6F 72 20 4D 61 
0380 72 6B 20 53 74 6F 75 74|OD 00 00 

? 

















Hierboven kan je de geheugeninhoud zien ; het programma zit van #300 tot #38A. 


Je kan dus twee maal je eigen tekst laten afdrukken ; de eerste tekst bestaat 


uit twee regels. Je kan gewoon de ascii waarden van de letters op de volgende 


plaatsen invullen : 











GOTO 1210 

1243 CURSOR XMN,CURY-1:GCTO 1210 

1244 CURSOR X,CURY:GOTO 1210 

1250 REM CURSORBEWEGINGEN 

1260 F CURY-YMX THEN CURSOR CURX, YMN:RETURN:REM ОР 

1270 CURSOR CURX,CURY41:RETURN 

1280 IF CURY-YMN THEN CURSOR CURX,YMX:RETURN:REM NEER 

1290 CURSOR CURX,CURY-1: RETURN 

1300 IF CURX-XMN THEN 1320:REM LINKS 

1310 CURSOR CURX-1,CURY:YF CURX MOD 5-1 THEN 1310:RETURN 

1320 [F CURY<YMX THEN CURSOR XMX,CURY--1: RETURN 

1330 CURSOR XMX,YMN:RETURN 

1340 F CURX=XMX THEN 1360:REM RECHTS 

1350 CURSOR CURX+1 ,CURY : RETURN 

1360 Е CURY>YMN THEN CURSOR XMN,CURY-1:RETURN 

1370 CURSOR XMN,YMX:RETURN 

1380 CURSOR X(K),CURY:RETURN 

1390 XMN=44 + XMX=59 : CURSOR K+43,CURY:GOTO 1010 

1400 UIT=1:RETURN 

1410 UIT=2:RETURN 

1500 REM SH CURUP: VOLGEND BLOK 

1510 N=N+1:Y=20:K=1:GOSUB 20:NSP$=STR$(G):K=2:GOSUB 20:NBLK$=STR$(G) 

1515 SP$=LEFT$(NSP$, LEN(NSP$)-2) : BL$=LEFT$(NBLK$ , LEN(NBLK$)-2) 

1520 IF SP$=" 0" THEN CURSOR 33,3:PRINT "LAATSTE BLOK";:GOTO 1000 

1530 CURSOR 5,22:PRINT "SPOOR:";SP$;" - BLOK:";BL$;" #"; 
MID$(STR$(N),1,LEN(STR$(N))-3);" D: 

1540 GOTO 240 

1550 GOSUB 2000:GOTO 1000 

1560 GOTO 240 

1600 КЕМ EINDE PROGRAMMA 

1605 GOTO 90 

1610 REM POKE #74,1:POKE #75,#5F:PRINT CHR$(12);:END 

1800 REM MAAK PLAATSCODE K UIT CURSOR 

1810 X=CURX:Y=CURY:IF X<44 THEN 1830 

1820 KzX-43: RETURN 

1830 K-0 

1840 K=K+1:IF K>16 THEN 1850:IF X(K)<=X THEN 1840:K-K-1:RETURN 

1850 K=16 : RETURN 

1900 REM ASCIL NAAR STRING 

1910 IN=ASC(IN$) 

1920 IN$=LEFT$(STR$(IN) ,LEN(STR$(IN))-2) 

1950 RETURN 

2000 REM VIDEO-RAM UITLEZEN 

2005 CURSOR 33,3:PRINT "VIDEO-RAM UITLEZEN"; 

2010 CALLM OPEN4,OPEN$ 

2020 OP$="B-P A O":CALLM PRNT15,0P$ 

2030 FOR Y«20 TO 5 STEP —1:YD=(23-Y)*#86 

2040 FOR K=] TO 16:GOSUB 30:IF G«O THEN 2100:IN$-CHR$(G): 
CALLM РОТА, IN$:NEXT:NEXT 

2080 OP$-"U2 4 O"+SP$+BL$:CALLM РЕКТ15,0Р% 

2090 ОР5-"І0":САЫМ PRNT15,0P$:GOTO 2110 

2100 CURSOR 33,1:PRINT "LEESFOUT; GEEN ASCII":CALLM CLOSE4:RETURN 

2110 CALLM CLOSE4:CURSOR 33,3:PRINT SPC(26);:RETURN 
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tekst 1, regel 1 van #343 tot #354 (погшааі : DAI PERSONAL ) 

regel 2 van #35B tot #369 (normaal : COMPUTER ) 

tekst 2 van #36D tot #387 (normaal : BASIC V1.1  ) 
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PARAMETERVERGEL IJKINGEN . 


Naast de gewone funkties : Y=F(X) > waarbij Y een funktie 


is van X (vb.v¥=3#X + 4), is er nog een andere klasse : de 
parametervergelijkingen. 
zijn X en Y funktie van een 


Bij deze vergelijkingen 


onafhankelijk veranderlijke : de parameter T s: X=F(T) en 
Y=F (т). 
Vb, X=R*COS(T) еп Y=R*SIN(T) 


cirkel met straal R tekenen. 


met T:O -> 2жРІ zal een 


De 2 parametervergelijkingen moeten zelf op de regels 50 en 


60 geprogrammeerd worden. Daarna RUN 1100 om het program- 


ma te doen vervolgen. Door de onder- en bovengrens van de 
X- en Y-as zodanig te kiezen, kan men een bepaald gedeelte 
van de kurve uitvergroten of slechts een bepaald gedeelte 
bekijken. : 
Hieronder volgt een uitgewerkt voorbeeld van een parameter- 
vergelijking die een hypocycloide tekent. 

50 ХаОжС05(7) + COS (2T) 


60 Y=24SIN(T) ~ SIN(2*T) 











T-ondergrens : o X interval : -3,5 
T-bovengrens * 6.3 Y interval š -4,4 
stap з Oel eenheid van de assen š 1 
Verberckmoes Filip 
Meidoornlaan 16 
2750 BEVEREN 
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18 REM PARAMETERVERGELIJKINGEN: 1150 INPUT "X-BOVENBRENS?; XB': PRINT 
УЕНВЕНСЕМОЕЗ F. 9/1986 1149 INPUT "Y-DNDERBRENS": YO! 2 PRINT 
26 6070 1900 1179 INPUT "Y-BOVEMBGRENG": VE ! : PRINT 
25 REM ## TEKENROUTINE ++ 
38 Xi--i:Yi-- 1188 INPUT "EENHEID VAN DE ASSEN"; UN! 
42 FOR T!-TMIN! TO TMAX! STEP ST! 
1185 REM %% TEKENEN ASSEN + 
59 1 REM zs PROGRAMMEER HIER X-F(T) SCHAALVERDELING жж 
60 1 REM ** PROGRAMMEER HIER Y=F Т) 1199 COLORG 7 8 9 15:MODE 5 
79 1 X2=K+FX!*X!:Y2=R+FV!*Y: 1299 ХМ=250:ҮМ=256 
89 1 IF X1<9 OR X1>:XMAX THEN 130 1216 KZXM*XÜ0'!/OD'!-XB! 3 +O: R= 
98 1 IF X2¢@ OR X2>XMAX THEN 130 YMSYO! / (YO!-YB!) 42 
199 1 IF Ү1<9 OR Y1>YMAX THEN 139 12360 EXI=KM/ (XBI-XO!) : FY! = 
110 1 IF Y240 OR Y2»YMAX THEN 139 YM/ (YB! -YO!) 
122 1 DRAW X1,Y1 X2,Y2 15 230 DRAW K,2 K,YM*2 O:DRAW SO.R XM+ 
150 X1=X2:Y1=Y2:NEXT S0,R e 
149 COLORG 6 @ @ 15 1249 BAT'!zXB!-XO': DE! x 4M/AT ! UN! 
159 IF БЕТС<У57 THEN 159 1256 FOR AV!=50.0 TO XM+50.0 STEP DEI 
148 MODE @:PRINT СНЕФ (12) 1240 DRAW AV!,R-2 AVI REZ діМЕХТ 
178 PRINT "Keuzemenu : 278 AT!zYB!— S DE! ZYM/AT UN! 
STOPPEN...... LEES E, 1289 FOR AV!-2.0 TD YM+2.@ STEP DE! 
188 PRINT " NIEUWE 1290 DRAW K-1, AV! K-1,0V! O:NEXT 
FUNKTIES....2" 1300 БОТО 50 
199 PRINT " NIEUWE 
PARAMETERS. .3" س‎ 
208 PRINT : INPUT "UW KEUZE...»5"3KZ! 
219 ON KZ! GOTO 220,1000,1109 
220 END 
1909 MODE @:PRINT CHR$(12) 
1919 CURSOR 19,22:FOR 1!-1.0 TO 40,0: 
PRINT CHR$(25): : NEXT 
1929 CURSOR 18,20: PRINT 
“PARAMETERVERGEL IJK INGEN, " 
1950 CURSOR 19,19:FOR I!=1.0 TO 49.6: 
PRINT CHR$ (25) 3; : NEXT 
1949 PRINT :PRINT : PRINT 
"Programmeer de funkties X=F(T) 
en Y=F{T)" 
1050 PRINT :PRINT "ор de regels 50 
en 49." 
1968 PRINT :PRINT "Om te starten : 
RUN 1100" 
1979 PRINT :PRINT "Als achtergrond 
van kleur verandert is het 
tekenen gedaan." 
1886 PRINT :PRINT “Druk dan op de 
spatiebalk om te eindigen." 
1096 END 
1188 PRINT CHR$(12):LIST 41-69:PRINT 
1119 INPUT "T-ONDERGRENS": TMIN!: 
PRINT 
1128 INPUT “T-BOVENGRENS";TMAX! : 
PRINT 
1139 INPUT "STAP"3ST':PRINT :PRINT 
1149 PRINT "Assenksuze":PRINT : INPUT 
“X-ONDERGRENS "3 XO! : PRINT 
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50 





f 








X=T-SIN (2 .O*%T) 
Үш2 ,0-2.0жС08(Т) 
О -> 19.5 STEP 0.2 Х(-1,20) Ү%-2-7) 





qe 





X22 OKCOS CT) +C0S C2 OFT) 
Y=2 .O#SIN(T)-SIN (2 .O*T) 
O —> 6.5 STEP 0.1 X(-325) YGC-45,4) 
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60 





50 
60 
Ts 










X=T#COS (Т) 
Y=T#SINCT) 
=> 12.6 STEP 0.2 











X(-12,12) Ұ5-12,12) 











X=4 .ОжБІМ (4 .0%T) COS CT) 
Y=4 .O#3SINC4 OKT) SIN (CT? 
-> 6.8 STEP 0.05 X(-4,4) Y(-4:4) 
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— f REM 
2 REM SEESCHLACHT 
SEESCHLACHT (Ship-Battle) 3 REM 
шшшшшщщшшшшшшшшшшишшшшщшшш 4 REM 
5 REM Haster IMP INT жәнне 
6 REM x 
Dieses Programm Seeschlacht (auch Schiffeversenken genannt) 100 CLEAR 4000:G0SUB 7000:REM TITELBILD ZEICHNEN 
wird normalerweise mit Papier und Bleistift gespielt. 200 CLEAR 4000: 6OSUE 8000:REM INITIALISIEREN 
Der Sinn des Spieles ist, die versteckten Schiffe des Gegners 300 GOSUB 6000:REM SPIELFELD ZEICHNEN 
zu finden und zu zerstüren. Dazu zielt man mit den Cursor- 400  GOSUB 5000:REM SPIELERSCHIFFE SETZEN 
Tasten und wirft dann mit SPACE eine Bombe ab. Wenn man ein 500 GOSUB 4000: REM COMPUTERSCHIFFE SETZEN 
Schiff getroffen hat, dann darf man nochmals schiessen. Danach 600  GOSUR 3000:REM SPIELBEGINN 
schießt der Gegner (hier der DAI). 700 GOSUB 2000:REM SCHUSS DES SPIELERS 
Mach dem Start des Programms, erscheint zunächst ein Titelbild. 800 GOSUB 1000:REM SCHUSS DES COMPUTERS 
Nachdem man eine Taste gedrückt hat, baut sich das Spielfeld 900 GOTO 700 
auf. Man kann nun seine Schiffe auf der Spielflàche verteilen. 1000 REM 
Man benutzt dazu die Cursor und die Shift-Cursor -Tasten. 1001 REM ##### SCHUSS DES COMPUTERS ser 
Wer alle fünf Schiffe des Gegners versenkt hat, der hat 1002 REM 
gewonnen. 1010 PRINT CHR$(12)::IF FLAG=1 GOTO 1300 
1020  XC-RND(10): YC=RND (10) 
Layout des Spielfeldes : 1030 IF XC=10 OR YC=10 OR (XC+YC) MOD 2=0 GOTO 1020 
1080 Zz8F(0,XC*1,YC*1) :SF (0, XC+1, YC*1) 210 
DEIME SCHIFFE DEINE 1060 IF Z=10 THEN R1-9:80T0 1000 THER TOT 
MEINE SCHUSSUERSLICHE SCHUSSUERSLICHE 1070 PRINT "Ich schiesse auf den Punkt ҮС" /"$XCs" ) 


1080 IF 7<>0 GOTO 1200 


© 


T 5 1100 DRAW 41%ХС%10,141-ҮС%10.49%ХС%10,149-ҮСжі10 23 
8123456783 


1110 DRAW 41%ХС%10,149-ҮС%10 49+XC+*10,141-YC*10 23 
1120 GOSUB 12000:IF FLAG=1 THEN Ri=9 

1130 RETURN 

1200 FILL 41%ХС%10,141-ҮС%10 49+XC#10, 149-YCx10 23 
1210 GOSUB 13000: TR(1, 22 ZTR (1, ZD 71 

1212 IF RICHT=1 OR RICHT-3 THEN T3=XC:T4=YC 

1213 IF RICHT=2 OR RICHT=4 THEN TizsXC:T2zYC 

1220 FLAG-1:1F TR(1,Z)=0 GOTO 1400 

1230 PRINT "Ich darf noch einmal schiessen !":PRINT 
1240 IF FLAG=0 GOTO 1020 

1300 IF RICHT=0 THEN XOzXC:YOzYC: TIZXC: T3=XC: Te YC: TAz YC: RICHTSINT (ЕМО (C1, 99) ) #2 


r 
M3 CD 0d CP CR. Pe OE INI e ote 
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1310 IF RICHT=Ri THEN XC=XC+CX:YC=YC+CY:IF XC>=0 AND ХС<=9 AND YCï=0 AND ҮС<=9 
GOTO 1050 
Zum Frogramm : 1520 RICHT-RICHT MOD 4%1:КіеКІСНТ: ХС=ХО: YO= YO: CX=0:CY=0 


Ы 1330 IF RICHT=1 THEN CX=+1:GOTO 1310 
Im Programm ist ab Zeile 60000 das Unterprogramm SLOW GRAF TEXT 1340 IF RICHT=2 THEN CX=-1: GOTO 1310 


enthalten. Falls Sie Besitzer von FAST GRAF TEXT sind, künnen 1350 IF RICHT=3 THEM CY=+1:GOTD 1310 
Sie FGT wie folgt verwenden : 1360 IF RICHT=4 THEN CY=-1:GOTO 1310 
1370 GOTO 1320 

Implementation von FGT: 1400 GOSUB 14000: VSC=VSC+1:FLAG=0: RICHT=0 

1410 FOR Х=Ті TO T3+2:FOR Y=T2 TO T4+2 
FBT laden (Adresse #300) 1420 SF(O,X,Y)=10:NEXT YsNEXT X 
Standart-Table laden 1430 IF М9С<>5 GOTO 1230 
HEAP über FGT legen (ca. #900) 1440 FOR Y=0 TO 9:FOR X=0 TO 9 


SEESCHLACHT laden oder eingeben 1450 IF SF(1,X*1,Y*1) MOD 10¢>0 THEN FILL 2014X*10,141-Y*10 209*X*10,149-Y*10 2 
Zeile 10010 löschen 3 


- Zeile 60000 - Ende lóschen 1460 МЕХТ:МЕХТ 
7. CLEAR 4:UT 1470 IF GETC<¢>0 GOTO 1470 
8. Programm saven (W29B XXXX SEESCHLACHT) 1480 А1%="## D A I #4": CALLM SD6DA:COLORG 1 1 1 1:GO0SUB 7000 
1490 GOTO 200 
Der Aufruf von FET ist im Programm enthalten (Zeile 10000-11000). 2000 REM 
i 2001 REM ##### SCHUSS DES SPIELERS жетке 
2002 REM 


іл LA FJ к 
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2010 
2020 
2030 
2100 
2110 
2129 
2130 
2149 
2150 
2140 
2170 
2180 
2200 
2210 
2300 
2310 
2320 
2400 
2410 


2420 





PRINT CHR&(12)3 

PRINT “Bewege den Zielpunkt mit den CURSOR-Tasten !" 
PRINT "Schiesse mit der Leertaste !':CURSDR 0,0 
FILL 201%Х5%10,141-Ү8%10 209%Х8%10,149-Ү8%10 17 
G=GETC:IF G=0 GOTO 2110 

FILL 201%Х5%10,141-Ү8%10 209%Х5%10,149-Ү5%10 16 

IF 8-32 GOTO 2200 

IF Gsié AND Ү8>0 THEN YSsYS-1 

IF G=17 AND Ү5<9 THEN YS=YS+1 

IF G=18 AND X820 THEN Х8-Х8-і 

IF 8=19 AND XSX9 THEN XS=xS+1 

GOTO 2100 

1=SF (1, XS+1,YS+1):SF (1, X811, YSti)=10 

IF 2-10 GOTO 2500:1F 7<>0 GOTO 2400 

DRAW 201%Х5%10,141-Ү5%10 209%Х8%10,149-Ү5%10 22 

DRAW 201+X6#10,149-VS#10 209-X8*10,141-YS*10 22 
GOSUB 12000: RETURN 

FILL 201%Х5%10,141-Ү8%10 209%Х8%10,149-Ү5%10 22 
TR(O, Z)=TR(O,2)-1:GOSUB 13000 

IF TR(O,Z2)20 THEN PRINT "Versenkt":GOSUB 14000:V88-VSS-1:1F V8S=5 THEN WAI 


әм 


T TIME 150:COLORG 1 i 1 1:GOSUB 7000:6070 200 


2430 


PRINT "Du darfst noch einmal schiessen !":WAIT TIME 50 
GOTO 2000 

PRINT "Auf diesen Punkt hast du schon geschossen !"i 
WAIT TIME S0:GOTO 2000 


REM 

REM tt UP. SPIELBEGINN жене 

REM 

PRINT CHR$(12): INPUT " Wie heisst du mit Vorname "iA1$:LsLEN(A1$) 

IF L311 THEN PRINT :PRINT " Der Name ist zu lang !!":WAIT TIME 100:GOTO 30 
PRINT CHR$(12):PRINT A1$:" $ beginne mit dem Spiel !" 


IF 1<8 THEN Ai1$z" "+@&l$%+" "SFOR ізі TO 8 STEP 2: Albe" "HALEN €" t NEXT 
WAIT TIME 100:PRINT CHR$(12):RETURN 

REM 

REM we UP. COMPUTERSCHIFFE SETZEN «xxx 

REM 

PRINT CHR$(t12):"Ich setze meine Schiffe !"i 

SC=1:RESTORE 

FOR Ізі TO S:READ S$,8 

X=RND (10) : Y=RND (10) : G=RND (4) 

IF X=10 OR Y=10 OR G=4 GOTO 4040 

GOSUB 11000: IF Ok=O GOTO 4040 

NEXT 1: RETURN 

REM 

REM зенне UP, SPIELERSCHIFFE SETZEN staat 

REM 

PRINT CHR$(12); 

PRINT "Bewege den Startpunkt des Schiffes mit den CURSOR-Tasten !" 
PRINT "Gebe die Richtung mit den SHIFT-CURSOR-Tasten !" 

Хаб: Yz0: SC«0: RESTORE 

FOR Ізі TO 5 


READ 5%,5: CURSOR 0,0:РКІМТ SFC (39) ;:CURSOR 0,0: PRINT 8%; 


FILL 41+X#10,141-V#10 49+X#10,149-Y#10 17 
SGzsGETC-16:1F GEO OR G28 GOTO 3110 

IF 6+3 THEN G=6-4:GOTO 5200 

FILL 4i+X#10,141-Y#10 49%Х%10,149-Ү%10 16 
IF б=0 AND Y:0 THEN Y=Y-1 

IF Get AND Ү<9 THEN Y=Y+1 

IF G=2 AND X50 THEN X=X-1 

IF G=3 AND X<9 THEN Х=Х+1 

GOTO 5100 

SC=0: GOSUE 11000:IF OK=0 GOTO 5100 
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5210 NEXT I:PRINT CHR$(12): 
S220 RETURN 
5300 DATA Fuenfer,4, Mierer, S,Dreier,2,Dreier,2,Zweier,l 
6000 REM 
8001 REM sese UP. SPIELFELD ZEICHNEN жекен 
6002 REM 
8010 MODE &:COLORG 12 О 7 15:COLORT 12 0 0 O:MODE 4A 
6020 FOR A=0 TO 100 STEP 10 
6030 DRAW 40%8,50 40+A,150 O:DRAW A+200,50 A+200,150 0 
6040 DRAW 40,8%50 140,А+50 O:DRAW 200, AtSO 500,А+50 0 
6050 NEXT À 
8100 (8%х"0125454789 0123456789": X=42: Y=155:HS=10:C=0:F=0:G0SUB 10000 
6110 A$-"O 01 12 23 54 45 56 67 78 89 9":X-27:Yz141:H8-80: V8-10: GOSUB 10000 
6120 A$="S 5": Х=87:Ү=170: 608508 10000 
6130 AS="Z Z"2X=152Y=96:GOSUB 10000 
6140  A$z"DEINE SCHIFFE DEINE": X=50:Y=200:HS=6:GOSUB 10000 
6150 Af="MEINE SCHUSSVERSUCHE SCHUSSVERSUCHE" : X230: Y=185:GOSUB 10000 
8160 RETURN 
7000 REM 
7001 REM sx UP. TITELBILD / SCHLUSSBILD ##### 
7002 REM 
7005 MODE 6:MODE 6:COLORG 1 12 8 0 
7010 IF Al$="" THEN A1$2"SEESCHLACHT" 
7015 FILL 0,50 XMAX,YMAX 12:FILL 130,40 230,60 8 
7020 FOR 2-0 TO 20:DRAW 120-7,40%7 130,40+Z Ә:МЕХТ Z 
7030 FOR Z=0 TO &:DRAW 230+2/2,40+1/2 230+1,60 @:NEXT Z 
7040 FOR Zei TO 3:DRAW 13042*2,40 XMAX,10*2 12:NEXT Z 
7100 RESTORE 
7110 READ OB$:IF OB#$<>"TITELBILD" GOTO 7110 
7120 FOR Z-1 TO 8:КЕАр X1,Y1,X2,Y2:FILL Хі,Ү1 X2,Y2 В:МЕХТ Z 
7130 FILL 170,70 171,71 9 
7140 FOR 7-1 TO 18:READ X1,Y1,X2,Y2:DRAW X1,Y1 X2,Y2 O:NEXT Z 
7200 FOR BZ=0 TO LEN(A1$)-1:1F GETC=32 THEN RETURN 
7210 Ү200:Сх1:Ғ-2:4%хМ10%(081%,В7,1):Ха20415%В7: GOSUB. 7300 
7220 COLORG 1 15 8 O:DRAW 170,72 X*6,Y*8 O:COLORG 1 12 8 O 
7230 DRAW 170,72 X+6,Y+8 21:60808 10000:GOSUB 13020:NEXT BZ 
7240 GOSUB 7300:WAIT TIME 3:IF GETC=0 GOTO 7240 
7250 RETURN 
7300 FR=0:FOR ZR=1 ТО 5:GOSUB 7400:NEXT ZR 
7510 FR=12:FOR ZR=5 TO 1 STEP -1:GOSUB 7400:NEXT ZR 
7320 RETURN 
7400 DRAW 187+ZR,95 187+ZR,100 FR: DRAW 187-ZR,95 187-2R,100 FR 
7410 RETURN 
7500 DATA TITELBILD 
7510 DATA 120,60,135,65, 140,60,160,65 
7520 DATA 143,65,158,70, 165,60,195,65 
7530 DATA 170,65,195,70,  180,70,195,85 
7540 DATA 185,85,190,90, 205,60,220,65 
7600 DATA 120,62,110,64, 120,63,110,65 
7810 DATA 143,67,133,72, 143,68,133,73 
7620 DATA 220,62,230,67, 220,63, 230,68 
7630 DATA 110,60,235,60, 187,90, 187,100 
7640 DATA 112,58,254,58, 170,65,195,45 
7550 DATA 180,70,195,70, 180,75,195,75 
7660 DATA 180,77,195,77, 180,80, 195,80 
7670 DATA 180,75,180,80, 185, 75,185,980 
7880 DATA 190,75,190,80, 195,75,195,80 
8000 REM 
8001 REM sse UP. INITIALISIERUNG жәе» 
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8002 
8010 
8020 
8050 
8040 
8050 
8060 
8070 
10000 
10001 
10002 
10010 
10020 
10930 
10040 
10050 
11000 
11001 
11002 
11919 
11020 
11030 
11040 
11050 
11040 
11070 
11080 
11090 
11100 
11110 
11120 
12000 
. 12001 
12002 
12010 
12020 
12030 
12040 
13000 
13001 
13002 
13010 
13020 
13030 
13045 
13050 
14000 
14901 
14002 
14010 
14020 
14050 
14040 
14050 
14060 
60000 
60001 
60002 
60010 
60020 
60030 
60040 
60050 





REM 
DIM SF(1,11,11),TR(1,S):R1=8 

READ A$:1F A$<:"TREFFER" GOTO 8020 

FOR N=1 TO S:READ M:TR(O,N)=M:TR(1,N)=M:NEXT М 

SOUND OFF :ENVELOPE 0 15 

ENVELOPE і 9,2:12,3:15,5: 12,219,210 

RETURN 

DATA TREFFER, S, 4,3,3,2 

REM 

REM ax UP. FAST GRAF TEXT жж 

REM 

GOTO 60000:REM BEI FGT DIESE ZEILE LOESCHEN 

POKE #2F0,C:POKE #2F1,F 

POKE #2F2,X MOD 256:POKE #2F3,X SHR 8 

POKE #2F4,Y:POKE #2F5,HS:POKE #2F6,VS 

БАГЫМ #200, A$: RETURN 

REM 

REM жж UP. AUFSTELLUNG DER SCHIFFE ж 

REM 

OK=0: F=0 

IF G=0 THEN Xi=X:X2=X+2: Vi=Y-S:Y2=Y+2: IF Ү1<0 THEN RETURN 
IF G=1 THEN X1=X:X2=X+2:Yl=Y:Y2=Y+S+2:IF Ү2У11 THEN RETURN 
IF G=2 THEN YisY:Y2-Y42:X19X-S:X2-X42:1F Х1<0 THEN RETURN 
IF G=3 THEN Yi=V:¥2=Y+2:X1=X:X2=X+S+2: IF Х2211 THEN RETURN 
FOR K=X1 TO X2:FOR J=Y1 TO Y2 

IF SF(SC,K,J) 420 THEN Е=1 

NEXT J:NEXT K:IF F=1 THEN RETURN 

FOR KzX1*1 TO X2-1:FOR J=Y1+1 TO Y2-1:8F (8C, K, Del 

IF SC-0 THEN FILL 514К%10,151-0%10 39+K#10,159-J#10 7 
NEXT J:NEXT Kafe) 

RETURN 

REM 

REM ж UF. SOUND WASSER Aa 

REM 

FOR A=8000 TO 1000 STEP -100:SOUND 0 0 5 0 FREQ(A):NEXT 
SOUND OFF 

NOISE 1 15:WAIT TIME 15:NOISE OFF 

RETURN 

REM 

REM жж UP. SOUND TREFFER жж 

REM 

FOR А=8000 TO 1000 STEP -100:80UND 0 0 5 О FREQ@(A):NEXT 
FOR MO=0 TO 15:FOR Mi=0 TO 22 

POKE #FCOO, MO+M1 

NEXT MisNEXT MO 

SOUND OFF :RETURN 

REM 

REM жж UP. SOUND VERSENKT жж 

REM 

SOUND 0 û 15 o FREG(2000) 

FOR MO=1 TO 8 

SOUND © O 15 2 FREQ(1000):WAIT TIME 5 

SOUND О © 15 2 FREQ(2000):WAIT TIME 5 

NEXT MO: SOUND OFF 

RETURN 

REM 

REM жж SLOW GRAF TEXT жж 

REM 

IF STARTZ$="0K" GOTO 60100 

DIM CARZ# (90) 

READ AZ$:1F А7%<2"8ТАВТ Z" GOTO 50030 

STARTZ$-"DK" 

FOR 22-32 TO 9O:READ AZ$,CARZS(ZZ):NEXT ZZ 


Y 


80100 XZ=X:VYZ=VY:X1Z=XZ:Y1Z=YZ 

FOR М2=0 TO 1ЕМ(0%)-1 

TZ$-MID$(A$,M2,1 

IF ASC(TZ$)<32 OR ASC(OTZ$)294 THEN TZ$=" " 
GRZS$=CARZS$ (ASC (TZ$) ) 

FOR NZ=0 TO LEN(GRZ$)-1 STEP 4 

60200 IF MIDS(GRZ$,NZ,1)="/" THEN XZ=XZ+(HS#(F+1)):GOTO 40270 
60210 JZi=XZ+VAL (MIDS (GRZS,NZ,1)) * (F1) 

60220 JZZ=YZ+VAL (MIDS (BRZ$, Mixt, 1) ) #(F +41) 
JZ3=XZ+VAL (MIDS (GRZ$,NZ+2, 1) ) #(F +1) 

60240 JZ4=YZ+VAL (MIDS (GRZ$,NZ+3, 1) #(F +1) 


60130 
60150 
60160 
60170 
60180 


60230 
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60250 DRAW 171,172 173,174 C:NEXT NZ 
60270 IF XZ*HB*(F*1)»-XMAX THEN XZ=X1Z:YZ=YZ-VS#(F+1) 
60280 NEXT MZ:RETURN 
60600 REM 
60501 REM DATEN FUER SLOW GRAF TEXT 
60602 REM 
60605 DATA START Z 
60610 DATA BLANK ,/, ! ,/, ANFUEHR ,/ 
60620 DATA # ,/, $ ‚/, Vua. Bels ols ( gly) gl 
50655 DATA * , 125616523137/ 
60660 DATA + ,/, KOMMA ,/, = ,/, 6 p/a / ,/ 
60685 DATA O ,121612212141415252565647472727161256/ 
60690 DATA 1 ,214131372637/ 
60595 DATA 2 ,51111112122333555556564747271627/ 
60700 DATA 3 ,12212141415252535334345656575717/ 
60705 DATA 4 ,4147531313141447/ 
60710 DATA 5 ,12212141415252545445451515171787/ 
60715 DATA ó ,121512212141415252535344441415373757/ 
60720 DATA 7 ,21222223235656575717/ 
60725 DATA 8 ,41212112121313242444445353525241241515161652727474755656855544/ 
60730 DATA 9 ,113131535356564747272716161515242454/ 
80735 DATA : ,/, %,/,<,/, = gly >,/, ? gly B g/ 
60770 DATA A ,11155155135315373755/ 
60775 DATA B ,1117174714441141475656855544445353525241/ 
60780 DATA C ,1216162727474756122121414152/ 
80785 DATA D ,111711414152525456474717/ 
60790 DATA E ,1117115114441757/ 
60795 DATA F ,111714441757/ 
60800 DATA б ,1216162727571221215151535343/ 
60805 DATA H ,111714545157/ 
60810 DATA I ,214131372747/ 
60815 DATA J ,1221214141528257/ 
60820 DATA K ,111713572451/ 
60825 DATA L ,11171151/ 
60830 DATA M ,11171735353435575751/ 
60835 DATA М ,111751571652/ 
50840 DATA 0 ,12161627274747555652524141212112/ 
50845 DATA Р ,111714444455555655474717/ 
60850 DATA Q ,1215162727474756565521221213131533351/ 
60855 DATA R ,1117174747565655554444142451/ 
60850 DATA 8 ,12212141415252535344442424151516162727474756/ 
60855 DATA T ,17573137/ 
50870 DATA U ,111711515157/ 
60875 DATA V ,1317535713213183/ 
60880 DATA W ,11175157113333513334/ 
60885 DATA X ,111217165152575512561652/ 
60890 DATA Y ,16175657163434563134/ 
80895 DATA Z ,17575756561212111151/ 
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AN ALTERNATIVE "DISPLAY" UTILITY 


The international nature of DAInamic happily means that programmes 
originate from members in many different countries. Consequently, 
particularly with games programmes. there is often a need to change a few 
words of text or screened instructions, from the author^s language to ones 
own language. That task is simple with a BASIC programme, but with a 
machine language programme it is difficult to find where the text is 
hidden uniess one has the source code. 


The ALTERNATIVE "DISPLAY" programme is an extended version of the DAI’s 
Utility Display routine and enables text to be found quickly. It is 
similar to the display facility in CP/M 2.2. It allows a machine code 
programme in memory to be scanned, showing at the right of the screen any 
memory contents that fall within the ASCII range of character codes. Once 
found, text can be altered in Utility, using the S command to substitute 
appropriate ASCII codes, character by character. Remember that the 
replacement block of text must be exactly the same length as the original 
otherwise any machine code further on in the programnme would be out of 
step and would fail. For instance, in the example below, replacing ‘Reihe 
5 * by "Row 5 ° would require two extra spaces (#29) to keep the string 
length the same: OBHFS-OBFF would thus become 52 &F 77 26 35 26 20 20. 


Before running the programme set the 3rd colour of COLORT with a suitably 
inconspicuous colour for the divider lines between the compacted bytes on 
the screen displays for example: COLORT 8 6 7 a. Load the machine language 
programme that needs to be altered, then the Alternative Display machine 
language programme. Run it with BGBeoo0. Next enter the start and end 
addresses of the programme to be scanned. The display can be halted by 
pressing any key, and restarted with the space-bar. 


Example of display: 


one  OBE13ED9327C7D210300220203C9BESC wa Pe Zh econo 
BEDS  DSBDDDIDS22050206412043204520202D ....5 PACE - 
OBEO 207049204E 2056204 120442045205220 INVADER 
ӘВЕО SSi2BDS@DABCD1175265696865203520  5..P....Reihe 5 
осоо  2O02b2EZ2E2020363020507536E6B746514 ... ӨӨ Funkte. 
осів  BCCADBBCAB175265696865203420202E  ....K.Reihe 4 a 
осоо  2E2E2O2O035302050756E6B746514BCA4 .. SO Punkte.. 0 
OCSO  DCBBCS175255696855203320202E2E2E  ....Keihe 3 ... 
ecao  202054302050755E6B746514BBBEDDBB 40 Funkte..... 


өссе ZF1752565695865203220202E2E2E2020 ?.Кеіһе 2 ... 
огоо  S3302050756EG6B746514BBS8DEBAB?17 39 Punkte..&.... 
әсуе 5265696865205 120207E2E2E 20203239 Reihe 1 ... 2% 
0C0 2050756E6B74651459756E6B74655629 Punkte.Punkte: 
осоо  004C617565723462048696768735636F72  .Laser: Highscor 
OCAS  55342047616D55266F7665724E657565 е: Game overNeue 
OCHS  7320537069656C20284A2FAE29203F44 s Spiel (J/N) PD 
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әде TITL "ALTERNATIVE "DISPLAY" UTILITY? 
298% s&uthor: Bill Read, Bristol (9272) 424290. October 1955 
2866 G=DAD4 PMSG EGU ораран Print а message 
6690  m-DDóo OUTE EGU әрреон sOutput а character 
2999 ®=ED@1 SPACE EOL GED61H sQutput a space 
eoon š 
2000 ORG овобен NOTE: When using the SPL 
BOGO 5 assembler, memory area #B096-#B19@ is not free for this 
воде 3 display programme: assembly must therefore be done with 
E249 5 an offset, and the object code moved (in Utility) to #6000 
вого 5 later, when SPL is no longer needed. eg: A6000 will 
Dooo 3 assemble at #1@06—-#1196 
B900 H 
Beoo Start. Print instructions: 
BOSS 218784 LXI H HEADNG 
Bees  CDDA4DA CALL PMSG 
ведь S Get up screen: 
Béoó6  218bEB3 LXI H ӘБЗВЕН Screen, bottom 
Boo9 118600 LXI D 86H Value for step to next line 
BeeC SEBO MVI À вон sValue for colour byte 
BOGE E18 MVI C 18H sCounter,24 lines 
B919 9611 NXTLIN MVI B 11H sCounter,17 dividers 
Bei2 ES PUSH H $ to be coloured. 
воі5 77 ЗЕТСВ MOV M,A sSet colour byte 
Béi4 25 INX H $Step to next but 
Bo15 25 INX H š one colour byte 
Belé 25 INX H 
B@17 23 INX H 
воів өз DCR B End of this line? 
Boi9  C213BO6 JNZ SETCR sloop if not 
BIC El POP H Move screen address. 
B@iD 19 DAD D s up 1 line 
BIE Өр DCR C iTop line reached? 
BG1F  C210BO6 JNZ NXTLIN 
Bo22 :Get two addresses from keyboard: 
Bo22 FEO? CMND1 MVI À 9H 
Be24 CDSODD CALL DuTC sChange prompt symbol. 
Bo27  OEO2 MVI C 2H 32 addresses wanted 
B929  CDDEEA CALL GEADEH збе them on stack 
Bo2C өр DCR C 
B@2D  F262ER JP OEG62H sError if only 1 address 
Bese Di POP D $High address in DE 
вөзі El POP H slow address in HL 
ВӨЗ2 ES LOOP1 PUSH H 5 and on stack 
Dozz CDSAED CALL GE D Son) sCarriage return 
во5а CDISED CALL GED18H sPrint address 
Bez?  CDO1ED CALL SPACE 
ВӘӨЗС  CDeiED CALL SPACE aPrint 2 spaces 
ВӘЗЕ 7E LOOP? MOV а, м sGet contents 
B@4@  CDiDED CALL OED1DH $ and print it 
B@4Z 25 IMX H 
вода 7D MOV AL 
Bo45  E6OF ANI @FH sEnd of line? 
Be47 CA4DEO JZ TEXT sThen show text chars 
водАа  CX3SFBO JMP LOOP? sElse next byte 
Bean sPrint any text bytes in right hand margins: 
Bo4D  CDOiED TEXT CALL SPACE 
вебе CDeIED CALL SPACE 
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BOSS El PDF H sLine start again —— 
веба AF LOOPS ХНА А 
BOSS 7E MOV А, м 3Get byte PROGRAMMING THE DAI IN MACHINE AND ASSEMBLY LANGUAGES 
BOSé FrE26 CPI 26H gif it is an by C W Read 
Dep Павово JC CONTRL 3 ASCII code from 
Pop FE7E ЕРІ ТЕН 3 #26 to #7D inclusive, Part 5 — More arithmetic and flags. 
Don Павоно JC SHOWIT 3 then display it. 
нНӨб0 SEZE CONTRL MVI A ZEH sSubstitute dot if not It is instructive to examine how the microprocessor^s various flags are 
нов:  CD60DD SHOWIT CALL GUTE 3 ASCII and display it. set. А few example programmes running in the DAI's Utility monitor will 
Beó65  CDBGED CALL әЕраән INX H,compare with DE provide suitable demonstrations and also introduce some more arithmetic 
BOSG  Daainpe JC DONE sif end addr reached ° instructions. 
Bo6B 7D MOV а, 
BOSC  Eó60F ANI @FH sLine end? Utility commands L (Look) and X (examine) display the flag register 
Beat  C254B6 JNZ LOOPS 3 no, test next byte contents as two Hex digits. It is not easy to determine from the display 
Bo7i  CDBBD6 PAUSE CALL ODGBHH Any key pressed? which flags are set because the hex equivalent of 8 bits is shown 
8974  DAOS1BO JC DONE $ IF BREAK whereas only 5 bits are flags. The states of Sign (8), Zero (7) and 
BO77 H7 оға A Auxiliary Carry (AC) flags are indicated by the ist hex digit of the 
Bo78G Саѕ2во JZ LOOP1 sNo key pressed displays the Carry (C) and Parity (P) flags by the 2nd hex digit. Here 
Bo7B CDDADé CALL 9D6DAH $Wait for space, is a quick reference list that shows the significance of each hex digit: 
Ho7E C332B0 JMP . LOOP1 $ then do next line 
вові CDSSED DONE CALL OEDZAH Carriage return ist digit Flag set 2nd digit Flag set 
Bo84  C322B06 JUMP CMND sAwait next command = ----- - 
Beg; 5 Ф none 2 neither 
Bo87 ec HEADNG DB осн sClear screen 1 ас 5 с 
h Depp  2E2E2E DB ^... DISPLAY ... The byte dividing lines are’ 4 Z & P 
| BOBS 26656F DB * coloured by” 3 Z and AC 7 C and F 
Bopr ер DB @DH 8 5 
BOCE 202020 рн the 3rd colour of the current 9 S and AC 
BOED  20434F DE * COLORT set." 
BOF? Өр DB орн 
BOFA 205479 DB ^ Type start address [space] end address’ Until now addition and subtraction has been limited to operands of one 
Hi21  205H72 DB 7 [returni.* byte, using the instructions ADD r, ADI d, SUB r and SUI d, where d is a 
Bi2B ap DR @DH single byte of data and r can be either any register or the memory whose 
Bi2C 205072 DE ^ Press any key to halt the display," address is in register pair HL. Those four instructions set the carry 
E14F 207370 DB “ space to continue.’ flag if a carry or borrow is generated by the arithmetic operation. When 
| Bi62 OD DE @DH adding or subtracting a value greater than one byte, any carry or borrow 
| B163 20507? DB 7 Press left arrow key to escape to UTility." from the operation on the first pair of bytes has to be added to or 
| BIBE опопроо DE ®DH, ADH, GH subtracted from the second pair of bytes. The set of instructions for 
Візі END END adding with the carry or subtracting with the borrow are: 
ADE r Add register or memory and Carry to A. 
аста Add Immediate data and Carry to А. 
SBB r Subtract register or memory and borrow from A. 
SHORTENED VERSION. If an assembler is not available and the programme is to! SBI d Subtract Immediate data and Borrow from A. 
entered by means of the Substitute command, the following version without t , 
text will be suitable. The only change is to make #B@88 zero and om Here is a programme, short enough for the object code to be entered with 
everything beyond. the Utility S command. It can be made to add and subtract various values 


to show how the flags behave. 
Bood 21 87 BO CD D4 DA 21 GE B3 11 Бо 06 SE БӨ GE 18 











BOlO Өз 11 ES 77 23 23 25 25 өз C2 15 Be Бі 19 ƏD C2 Example 1 

BOZO 10 БӨ ЗЕ 09 CD 69 DD 9E 62 CD DE EA Өр F2 é2 EA Addr- Object Source code Remarks 

Beso Di El ES CD ЗА ED CD 18 ED CD Gi ED CD ді ED 7E ess code 

Бодо CD iD ED 23 7D EG GF CA 4D Be CZ ЗЕ BG CD 61 ED PRTADR  EQU @ED1IBH SROM routine: prints an address 

Base CD ei Ер Ei AF 7E FE 20 DA 69 Be FE 7E DA 62 BO ORG 4дөн Start at #0400 

ВӨ^Ө ЗЕ 2E CD 6% DD CD ве ED ра 81 BO 7D Её oF C2 54 2400 99 START МОР §No operation 

BO7@ BO CD вв Dé DA 81 во B7 CA 32 вө CD ра Dé C3 32 9401 913428 LXI B 2834H fist number into ВС 

ВоВе B® CD ЗА ED C3 22 BG өс бо 6404 111215 LXI D ізізн i2nd number into DE 

| әде? 79 MOV A,C sLSByte of ist number to A 

6468 83 ADD E sAdd LSB of 2nd number. Ans in A 
9409 eo NOP 
6468 ФЕ MOV LIA sSave result in L 
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————————————— 


440B 78 MOV A,B МБВ ist to A 

480 BA ADC D бай MSB 2nd and Carry to A 
одер eo NOP 

940E 67 MOV н,а sMove result to H 

GAGE CDi8ED CALL PRTADR 3 and print what is in HL 
0412 со НЕТ s (To Utility) 

4413 END 


Enter the code and observe the action with the Utility’s Look function: 
initialise first with command 25 then type 1400 400 40F. The result of 
the addition, #41446, should be printed as a continuation (C) line, after 
line ӨЛӨР, 


You will notice that the flag (F) register shows 62 (no flags set) for 
the first addition, but that it changes to 16 for the second addition, 
showing that both Auxiliary Carry and Parity flags have been set. AC is 
set when there is a carry actually within a byte between the low nibble 
and the high nibble, in this case when the 8 and 9 were added. P is set 
when the result in the accumulator has an even number of i bits, or no i 
bits. Here is what happened after instruction MOV A,B at 442B: the bytes 
are shown split into two nibbles because each nibble represents one hex 
digit, ie: we are working in Binary Coded Decimal instead of true 
binary. 


Value in accumulator #28 = 0019 1000 
Value in register D #19 = Gool 1001 
Value in carry flag ° 9 


Add low nibbles + carry 1 eooi the carry from low 
to high sets AC flag 

01600 

9100 9961 even number of is 


in result sets P flag 


Add high nibbles + aux carry 
Total #41 


H H 


The P and ñC flags are of little use in programming. The AC flag is only 
used by the microprocessor (see description of DAA instruction later). 
Conditional branching instructions are available for the Р flag but not 
for AC. They, with their op codes in brackets, are: 


RPO (E0) Return when Parity Odd. RPE (ЕВ) Return when Parity Even. 
JPO (E2) Jump when Parity Odd. JPE (EA) Jump when Parity Even. 
CPO (£4) Call when Parity Odd. CPE (EC) Call when Parity Even. 


In Example 1 the DAI produced an answer that was the hex sum of two hex 
numbers, 42834 and #1912. It assumed that those values, loaded into RC 
and DE, were hex. There is a microprocesor instruction which treats them 
as decimal values: it is DAA (op code 27). 


DAA means Decimal Adjustment of Accumulator. A DAA instruction must be 
given after each "add" instruction. Іп the programme example above 
replace the NOPs (90) at 9409 and 40р by DAAs (27), and re-run it. The 
result printed will be the decimal sum of the two decimal values in BC 
and DE. DAA adjusts the value in the accumulator to form two Binary 
Coded Decimal. digits. Reference is made to the AC flag because each 
nibble is dealt with seperately. DAA operates according to the following 
ruless А 

If the value in the least significant nibble is greater than 9, or the 
Auxiliary Carry flag is set, 6 is added to the nibble. 

If the value in the most significant nibble is now greater than 9, оғ 
the Carry flag is set, 6 is added to the nibble. 
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Example 2 
Replace the add instructions in Example i by subtract instructions (DAG 
works only after additions): change ADD E to SUB E, ADC D to SEB D, and 
delete the DAAs by substituting as follows:- 

50498 83-95 27-600 and 5046C 04-94 27-60 
Run the programme again, after Z3, with L400 400 Aer, This time flag АС 
is set on the ist subtraction (54—12). This was because the micro- 
processor performed the subtraction by adding the two's complement of 
the value in E to the accumulator. After instruction 79 {MOV AD at 
address 0407 the situaton is: 


Value in accumulator #24 = 09011 оор 

Value in register E #12 = 0001 Salo 

Now perform instruction SUB E: 

Flags 

(1) complement value in E = 1119 1101 set 
(2) +1 (makes 275 complement) = 1119 1119 1119 1116 
5) add to accumulator і 6010 @@10 AC,C,P 
{4) complement the carry #22 = © 0010 0010 АС,Р 


Note that the carry flag is also complemented. Іп this example a small 
number has been subtracted from a larger so there is no borrow, hence 
Carry-o. 


Example 3 

Now consider the more important flags, 8, 2, С, and how they are 
affected by arithmetic operations. Restore the programme to its Example 
1 state, with ADD E and ADC D instead of SUB E and SBB D. Substitute the 
ist number #2834 by #75FE thus: 80402 34-FE 28-75. Now the Look exercise 
shows the Flag register as 13 for the ist addition, indicating that a 
carry has been generated. The 2nd addition adds the carry and the 
remaining bytes, and the Flag register changes to 82; the 8 means that 
the Sign flag has been set to indicate a negative value. But, how does 
adding 2 positive numbers provide a negative result? The way the 
microprocessor recognizes negative values is by the most significant bit 
in the accumulator: if that is 1, no matter how it came to be so, the 
sign flag is sets if the bit is @ the flag is not set. In this case our 
addition has produced a sum large enough to put a 1 in the most 
sgnificant bit. In practice this anomoly is not a problem because a 
programmer would not expect to put commands like, for example, a 
conditional "jump if minus" after an addition. It is however worth 
remembering that the sign flag has its peculiarities. Fig 1 shows how 


each flag is set or not when Example 3 is run. 

















I 
| Accumulator 0011 0109 #34 
ADD E Reg E 1111 1110 SFE 
Carry —— 1 611i GGG Bux Carry 
sens С-і هة‎ má себе AC=1 
Accumulator Doit 4000 #28 
í Carry From above 1 1 
пог n s ^ 
L Reg D 9111 86101 #75 
Result поб 
Mo carry — 0 1001 1110 Ame zero sets ЖӘЕ 
sets Gen ^ A | 2-0 
E si m 
ai ДОМЕ 
2 md Mo auxiliary \— Odd ni әр ones 
Most significant pes gee паб number ор ones 
Bit ei, sees sci SRE (Bes sets Р=0 
Fig i: Flag setting for Example 3 
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Memory addresses are in the form of 4-bit hex numbers and it is often 
necessary to programme arithmetic operations on them. There is a double 


byte add instruction 


{DAD} specifically for that purpose. 


It adds the 


value in a nominated register pair to the value in the HL pair, leaving 


the result in HL. The mnemonics, 


with their op codes in brackets, are: 


рар В (99), DAD D (19), DAD H (29) and DAD SP 559). 
Here is an example, using DAD D to increment a screen RAM address (held 
in HL). The increment, $6086 is held in DE. #86 is the number of bytes 
between similar positions on adjacent screen lines. 9 is put in memory 
at each address selected, thus drawing a vertical line from bottom to 
top of the screen. Call the programme from Basic with CALLM #499. 


Obj code ORG 
94906  21A3B3 LXI H 
0403 118600 LXI D 
404 AF XRA A 
9407 BE18 ÞVI C 
9499 77 LOOP MOV M, 
9400 19 DAD D 
олон on DCR C 
одос C2ogo4 JNZ 
e4gor СӘ RET 


There is no corresponding 


400H 
@BSASH s Bottom centre of screen. 
86H š Increment to next line. 
:Zero the accumulator. 
18H sC counts 24 screen lines. 
56 to screen character position 
sAdd #86 to address іп HL 
sReduce line count by 1 
LOOP Repeat until count is 6 


;End of routine. 


"double byte subtract" instruction but the 


effect can be achieved by loading the nominated register pair with the 
two's complement of the value so that DAD r can add a negative value to 
HL. Here is how to convert a 4-digit value held in the DE register pair 


to its twos compiement:- 
Object code Source code 


7A MOV A,D 
2F CMA 

57 MOV D,A 
7B MOV A,E 
2F CMA 

SF MOV E,A 
13 INX D 


Move value in D to accumulator 
complement it 

and return it to D 

Complement E 


Add i to the complemented value 


There is a ROM routine similar to this at DE26 to DE2F inclusive. It is 
known by the label NEGHL and it converts a value in the HL pair to two’s 


complement. 


The following section of code uses the NEGHL routine to 


change #86 to -#86. We can use it, with the last part of the above line 


drawing routine, 


to draw the line from top to bottom of the screen. 


Addressing screen colour bytes instead of data bytes, will draw a line 
of different width, in the 3rd colour of the COLORT set. Call this one 


from Basic with CALLM #416:- 











NEGHL EQU @DE26H 
ORG 410H 
0410 218600 LXI H B6H sValue of increment 
9415  CD26DE CALL NEGHL Маке it negative and 
9416 ЕВ XCHG š put it in DE. 
9417 ZIAEBF LXI H OBFAEH Address of screen, top centre 
441A Zei MVi À зін Byte 01 (or your choice) into A 
өдіс С59704 JMP 47H sJump into previous routine to 
put ei into a colour byte at 
centre of each screen line. 
To be continued. 
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1 nternational 
B AI 
€ fub 


Chers 


amis, 





merveilleux moments que vous avez 
trouverez à la page 51, la recette d’un 
nom prédestiné. Mais n'en abusez pas car un 
va, trois verres bonjour les dégats Pour vous faire 
jusqu'au prochaine vacances ,nous ne pouvons que vous 


de rester fidèle а DAIclic. 


Pour vous rappeler les 
cet été, vous 
cocktail au 


connus 
délicieux 
verre ca 
patienter 
conseiller 


Dés à présent, nous pouvons vous 
l'année prochaine, sous 
présentation, et  fétera 


signaler que 
réserve d'un nouveau 
ainsi son deuxième 


DAIclic paraïtra 
changement de 
anniversaire, 


La rédaction de la 
effet, la mise au 
énormément de 
toujours le temps de 
comme | DAIClic peut 
n'en est rien, cela 
nombre de bénévoles. 
vous qu'un des 


revue va 
point d'une 
temps, et les 


également "bouger! sous peu, En 
revue telle que DAIclic prend 
responsables actuels n'ont plus 
s'occuper de DAIclic, L'édition d'une revue 
paraître très simple pour certains, mais il 
demande énormément de temps à un certain 
Pour ne vous citer qu'un exemple : savez- 
responsables du club passe une demi-journée tous 


les deux mois uniquement pour expédier les revues aux membres, 
mais avant l'expédition il y а eu tout le travail de la rédaction 
Il nous est donc difficile de faire paraître une revue comme 
DAIclic dans les délais prévus si l'aide de nos membres reste si 
faible. 

Nous nous permettons une fois de plus de solliciter votre aide, 
ce que certains font déjà "dans l'ombre" depuis un petit temps et 
nous les en remerçions. Toutes les propositions seront les bien- 
venues, mais dés à présent sachez que nous risquons de tomber en 
mal d'articles palpitants H! De plus que ceux qui nous écrivent 
fassent un effort de présentation..cela nous simplifie tellement 
la  tàche. Deux petits exemples : les articles de messieurs L. 


Legry et R. De Lombaert que vous trouverez dans ce numéro nous 
sont parvenus quasiment prêts pour l'impression ! Nous ne pouvons 
que remercier ces personnes et encourager nos membres 4 faire de 


même, ce qui nous permettra de consacrer moins de temps à D 








élaboration de la revue (impression, découpages et collages en 
tout genre !), temps qui sera utilisé pius intelligemment а la 
création de nouvelles activités DAI-istiques. 
Nous vous souhaitons une ,agréable lecture et vous donnons rendez- 
vous dans deux mois. 
IDC rédaction 
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CARTE DE SORTIE DU X-BUS POUR D.A.I 





FEVRIER 1986 Laurent LEGRY 
LB E EE 628 Bld LAHURE 


DAI C.L. IC 59500 DOUAI (FRANCE) 


1-PRESENTATION 








Peut-être l'avez vous déja remarqué, le DAI possède 512 adresses 
inutilisées comprises entre OF900 et OFAFFH. 

Pensant qu'il serait utile de pouvoir les exploiter, j'ai réalisé une 
carte se connectant sur le X-BUS à la place de celle du TOS et permettant 
de sortir les différents Signaux des bus, sans risque pour la machine 
(une erreur de cablage ayant parfois des conséquences désastreuses), 

Cette réalisation isole, à l'aide de buffers, la machine de ce que 
vous pourriez y connecter. 


Z-SUELBUES COMMENTAIRES A PROPOS DU SCHEMA DE LA CARTE 
—————— ت‎ m m 


a - Modification du X-BUS 
regen 


Certains signaux utilisés ne se trouvent pas sur le X-BUS de votre 
DAI tel qu'il est décrit dans le précédent article sur l'interface 
CENTRONICS. C'est le cas de DRT1, DTR2, FF/, FA/, F9/ et FO. 

Excéptés DTRi et DTR2, ces signaux sont présents sur les pattes de 
certains circuits du DAI : l'une des figures de l'article sur 
l'interface CENTRONICS vous précise où les trouver. Il vous faut donc 
ramener 1e X-BUS, dans la configuration indiquée sur la figure 2, en 
éffectuant les modifications décrites ci-dessous. 


Les broches 1,3,5,7,9,11,13,15,17,19 du connecteur X-BUS sont reliées 
entre-elles et mises à la masse. L'opération la plus délicate 

consiste à démonter la carte mére et à retirer le cuivre reliant ces 
pattes entre elles à l'aide d'un Cutter, d'un fer à souder et d'une 
pompe à dessouder. A l'issue de cette manipulation, les broches 3, 5, 
7, 9, 11, 13, 15, 17, 19 doivent être ‘en l'air! et la broche 1 à la 
masse, 


Cette manipulation, assez facile, doit étre effectuée avec le plus 
grand soin, Je ne peux, bien sûr, garantir toute dégradation de votre 
machine qui pourrait en résulter, 11 faut ensuite, à l'aide de fin 
fil, relier ces différentes broches aux circuits d’où sortent les 
Signaux, de manière à ramener le X-BUS dans la configuration 
représentée sur 1a figure 2. 
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Votre machine peut maintenant recevoir la carte de buffers tout en 
conservant ia compatibilité avec la carte du TOS. 


En ce qui concerne DTRI et DTR2 vous pouvez vous reporter à l'article 
sur l'interface CENTRONICS. Sachez cependant qu'ils ne sont pas 
indispensables. 


b - Fonctionnement de 1a carte 


Les adresses А0 à All et les différents signaux de contrôle sortent 
de buffers unidirectionnels 7415541, Les signaux sont toujours 
présents en sortie de ces circuits, les pattes de validation (1 et 
19) étant maintenues actives (reliées à la masse). 


Les données transitent par un buffer bidirectionnel 2415245. La broche 
indiquant la direction dans laquelle transitent les signaux (1) est 
reliée directement au MEMORY READ/. 


Le montage que vous voyez sur la patte OUTPUT ENABLE (19) est 

destiné a valider les sorties des buffers, uniquement lorsqu'on 

adresse des circuits sur (0ҒОООН => OFZFFH) ou (OF900H => OFAFFH) ou 
(OFFOOH =>0FFFFH et seulement en lecture); cette dernière particularité 
est notemment utile pour la carte centronics. 


Les signaux de contrôle entrant dans la machine ne passent pas par 
les buffers. 


REMARQUE : Le 7415245 et le 7415541 possèdent tout deux la 
caracteristique interréssante d’avoir les entrées d'un coté du circuit 
et les sorties de l'autre, ce qui facilite le cablage. 


3-REALISATION 





Vous trouverez ci dessous les photocopies des transparents qui m'ont 
servi à réaliser cette carte double face, 

Si vous les reproduisez par transparence, les transferts devront étre 
piacés contre le cuivre. Cette remarque est également valable 

pour la carte CENTRONICS. 


Le connecteur utilisé est le méme que celui de la carte du TOS (c'est 
d'ailleurs celui que j'ai récupéré). Les composants doivent se 
trouver facilement chez votre revendeur habituel. | 

La carte terminée, il vous restera à ramener les sorties sur le 
connecteur de votre choix. 


Cette carte remplace celle du TOS, Pour utiliser le DCR, il vous 
faudra réaliser la carte CENTRONICS (vous n'étes pas obligé de mettre 
tous les circuits : seuls 1°EPROM et le 241502 sont nécéssaires pour 
le contrôle du DCR). Attention, vous ne pouvez pas directement adapter 
votre vieille carte en la connectant à la sortie des buffers car elle 
utilise les signaux A11 à A15 du bus d'adresses. 
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MASQUES ET SCHEMA D’ IMPLANTATION 4-CONCLUSTON 


À condition que la manipulation de la carte mè re de votre DAI ne 
vous effraie pas trop, ce montage vous donne la possibilité 
d'interfacer, sans risque, la machine avec pratiquement tout les 
Péripheriques dont vous avez envie, 

Pour celà, vous disposez des adresses suivantes : 








a - les adresses libres 
eer egen 


хо?” 


“Dé Vous avez la possibilité d’ajouter des circuits : 
254 - de OF900H à OF9FFH par l'intermédiaire du signal F9/ (actif 
хоз lorsque OF9XXH est présent sur le bus d'adresses. 


mE - de ОҒАООН à OFAFFH par l'intermédiaire du signal FA/. 
Ces adresses ne sont utilisées, ni par la machine, ni par le 
contrôleur du DCR. Cependant, certaines réalisations, parues dans 
DAINAMIC ou d'autres revues, peuvent les utiliser. 











— 5.9. 
e 





b - les adresses déjà utilisées mais auxquelles vous avez accès 
Dee e ыы ы А hd 


| Be 





Tl s’agit des adresses du TOS et des adresses de OFXOOH à OFXFFH en 
ne > écriture. 
мес - les adresses de ОҒОООН à OF7FFH sont accessibles par le signal FO 
хотті {contrairement aux autres, ce signal est actif à l'état haut). Cela 
KAD vous permet d'accéder aux adresses du TOS en sortie des buffers, 
хат - pour ce qui est des autres adresses (0ҒХ00 à OFXFF) reportez vous 
xas à l'article sur la carte CENTRONICS, 





Si vous avez des remarques à formuler, à propos de ces deux 


əм réalisations ou 5i vous rencontrez quelques problèmes, n'hésitez pas à 
XDTR2 N i 
| XiMT ACH me le faire savoir. 


MHOLD REG 
XSYN 
XMR A 


хмм Laurent LEGRY 











NB - FA/ signifie Complément de ҒА (ou FA barrel 
- X : Valeur quelconque comprise entre 0 et F 


uon. à 4 


ammo su um em ош esa es 
EI 





74 LS 27 








_ sS —— a 
74 LS 245 — eS 74 LS 541 74 LS 
| LS 541 74 LS 541 


e d 


e 
e—— —— —_—_ 
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Зіл; 
9 - = —— = = 
SL? Г N . 
55 x TRI “RIPPLE” 
„28 2 
Bu FL.MENCIERE (F-51 HERMONVILLE) 
шап 
oss 
© LT " D 7 Hoe . 2. 
FED SEE Voici un programme en LM qui sert à trier des données aiphanumériques. J'ai utilisé 
E ізі ыла d la méthode du tri RIPPLE. Cette méthode consiste à comparer un mot avec le suivant. S'il est 
х хш a езе E plus petit, il n'y a pas de tri et оп passe au mot suivant. S'il est plus grand, dans ce cas, le 
rur š ! : : ` 
a ЕЕЕ Hts No deuxième mot est classé à place du premier et le premier est classé à la place du deuxième. 
E BSag8nansnosEezucoezszon90rL 
š De cette maniëre, le plus grand mot sera placé en fin de tableau. Le tri se fait ensuite 
| @| $2222222 КЕБЕ AS DM entre le deuxième mot (éventuellement l'ancien premier mot) et le troisième mot et ainsi 
El a. de suite sans tenir compte du dernier mot qui est déjà à sa place. 
$ MOONY DOON O 05 O N = O 0 O (Gt amo 
| Ë mm ocn NNN N чо б T EST TH 
| 4 ИИ И Le processus se répète jusqu'à ce que tous les mots soient classés, 
| $| “OMNOALERATRRARSSRRSTOESS | T" | 
| 8 a: Do BU B Sa A o o Ba. go Pour le programme, le tableau doit être constitué de mots définis comme suit: 
nm . D D 
el 8?9X328E9989z9"2209z29EEAZL - Le ler octet désigne la longueur du mot qui suit. 
zj 9 SUSE ES deet 799 š š + Ë "I - Suivent les codes ASCII du mot proprement dit. 
^ D 88 eg - Le dernier octet est égal à 0. 
š 88 Sa 
= = SS Si vous êtes curieux, vous vous serez rendu compte que cette structure des données 
Чч est Ja même que celle utilisée dans la HEAP lorsque le DAI range un tableau de variables 
< 
DIM. 
Exemple: 03 44 41 49 00 
Long. DA I 00 
En ce qui concerne le programme, vous devez mettre l'ADRESSE de départ du tableau 
" dans 'BETR', puis le nombre de mots à trier doit être rangé dans 'NBMOT'. Vous devez 
2 effacer les lignes qui sont suivies de '*' car elles ont été mises ici pour afficher les 
| E données dans le cas de l'exemple, 
| z š 
1 Led оо e ` . 
| goes J'ai effectué un tri de 170 mots en environ 12 s. 
| іңіз 
oom 
dts 
Od = 
oe E 0000 ;eoso59c0045005990000000099$00000050909206000600200095000 4870 E4 POP ОН 
0000 jase TRI RIPPLE B71 Dt P D 
ш 0000 $ ЖЕНСІЕНЕ CORMICY 51220 Bre Cf PP b 
E зовано 8 әш ооо} GAME DE TRI DE DONNEES ALPHANUHERIGUE WA ts grs 
EI or er O <r r ODE WD ON O Ds ED © oun P n F 9 
š RRRERELS ЕЛЕР — 2229kEEt — 82323825 9000 |222 Long, code ASCH dae en So, mm рав 
а 0000 a  REGROUPEES DANS UM TABLEAU DEBUTANT А 1376 3Aà21B LDA МОТ 
ш 6000 a  L'ADRESSE STOCKEE DANS 'BETA' 1879 2601 su mu 
a 0000 ә LE NOMBRE DE MOTS COMPOSANS LE TABLEAU EST 1878 324248 STA Hawor 
p > 0000 jess 5Т0СҚЕ DANS nr. Be FS TRIS PUSH PSF JHB DE HOTS A TRIER 
= ib 8 B > 0000 jo5900665500009660000064009006809065202005000600009000690504 BIP CDB CALL CELON 
ш 2 9000 S=1B86 HOT! EU BAGH Bez 2601 SU 4H 
5 d 9000 8184} MOTo EW ЫН 1584 AP NU CA 
Ф T 0000 6490 BETR ЕШ ЕТУ 1865 24648 LED HDI 
zumo ENDE OND, - 0 0 s iD) OR O ANO EW ON а 0000 9=1542 Wem ЕШ 18328 1888 23 nx Н 
A SASSI 43155550 SASS ASS So 0000 geiht HDD Ee DAE jð (a of facor) 1809 ES rr^ 
: 3 лына шщ жшн no Sr 
° 8 -i Ug ж - 8 А Á g AY - 0000 83000 T ЕШ 30008 ADRESSE VARIABLE We B ES 
š ° © © к 5000 MEET Ce алын mer ІЗ POP Н 
in Os © маю = m cu] ON o iD *+ m Ñ ` омар оч" холаю G TT ее 1950 PS PUSH PST FK тиг ЖА: А 
L ішін 1854 (5 PUSH B 4891 SA ШАХ р LETTRE Ota 
г = 4852 Ds PUSH D 1892 BE GP oH EIS Sri 
= 1853 ES PUSH H 4893 CAIB d МЫШ КЗ 
485% 344215 LDA wennt 1596 DDB tC STAP SAGE 
| | | | | | | | | | | 1852 АР ют GA 1899 CDAD CALL ran Ай 
4858 oD TRIE DER C mm TRIE 4890 CHIT RP TRI 
z РЧ SE 1889 en TRIER UD BER TDEPART DU TABLEAU Эр 23 шөп meom 
ÉRSETESE EEE g z Elke £ 88882835 te £z BSF СОЗӘГЕ CALL Bn АРА ЧЮ Xa E 
1862 23 nx Е Be C290% Ят оты? 
1363 225545 SHLD tz BAS CDAFSB CALL NOTSU! 
1866 CD7545 CALL TRIDD BAD Ei Tals POP PSE 
4869 00 DER с Bag 39 DER A 
1B6A C259% JZ TRIER: BA 27218 AZ TRI 
+B6D Ср084С CALL AFPICH 39 BAD Са PP B = 
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BAE Co RET 1608 C$ RZ 

ЯВАР 2A1 tem LED Юг 3095 28 RE 

4882 22454 SHLD HOT? 100$ 7E Ж” Ан 

4885 CD39DE CALL HL 1602 Cg RET 

5888 23 EX Е 3608 Zo АРРІСЕ ИП A of 38 
1889 224448 SHLD More 1004 (09506 CALL 006258 58 
BBE CS RET 1COD 345345 LDA рр БЫ 
WED 010030 SWAP LXI В ТАЙРОН ¡DESTINATION 1010 248018 LED BETR 38 
1BCO 244648 LEED HOT 1643 F5 AFP 4 PUSH PSF 3% 
4803 XCEG 464% Cb32D5 CALE oDB32H зе 
480% 248618 LED BOTY 38077 DANS 1042 320D Wi A ODE H 
E? CD39DE CALL Шин ITAPON 3019 ES PUSH E 38 
BEA CDAFDE CALL HOVE 464А 009506 CALL 096954 3% 
BED ¢$ 4610 En POP H 38 
BD 24560 LED HOT: ICE Рт POP Psy 
Do 44 EOV ЬЕ CIF 3D DR A 38 
484 AD HOF CL 4620 23 ` H EJ 
"bz 2A1 LELO HOTZ 30072 АТА 4624 С2131с dt АРРА HI 
1805 P^ XCHG TPLACE +624 Ca ют » 

4 318 LED ноте IS END 

1809 Gate CAL Hub DE МОТ) S 

BDC CDAFDE CALL MOVE 

ЗЫР; 

ABD? 2AA64B LED HON 

4BE2 CD39DE CALL, ELH 

1BES 3600 ИП НОН 

BE? 29 INK Н 

BEG 224418 SHLD mora TNOUV.ADR.DE HOT2 

WED M) #07 SR 

‘BEC AD ж” CL 

BED 210030 LXI N TAMPON 

Bro EB XCHG 

YBP4 210030 LXI И TAMPON — ;MOT: DANS 

BPR Cb39DE CALL Däi 301? 

18Р7 CD, 

ЖРА 09 RET 

FB B2 CELON ORA А 

FC 244619 LELD MOT: CHERCHE LA РИ 

РР HOF АМ ІРЕТІТЕ DES 2 

4600 Aa 0072 3 

1603 BE CP U 


















































Jean DEPRAZ (IDC BORDEAUX), VILLEURBANNE (France) 


9 vi i-joint: 


-la procédure MATRIANGSUP destinée a transformer une matrice en 
matrice triangulaire supérieure. 


~ la définition de TRACE destinée à calculer la trace d'une matrice. 


- la définition de DETMAT qui permet de calculer le déterminant d'une 
matrice. 


- le programme qui utilise ce qui précède pour résoudre un systéme 
d'équations linéaires. 


En modifiant comme il convient les data, on peut utiliser ce programme pour un 
nombre important d'inconnues; if convient également d'adapter en conséquence le 
CLEAR à la ligne 170. 


Comme vous l'avez déjà compris, tout ce qui précède n'est compatible qu'avec 
DBASIC. Cest un complément à EXTENDED BASIC de F. LEMOINE paru dans le DAICLIC 
numéro 2 page 70. 
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i DEF PROC MATREAD ARR A! 
2 1 FOR I-1 TO DIM(A!,1) 
3 2 FOR J=1 TO DIM(A!,1) 
4 3 READ A!(I,J): 
2 NEXT J: 
1 NEXT I 
5 END PROC 
6 DEF PROC MATPRINT ARR A! 
7 i FOR Ізі TO DIM(A!,1): 
2 PRINT : 
2 FOR J=1 ТО DIM(A!,2) 
8 3 PRINT TAB((J-1)*7);A! (1,3): 
2 NEXT : 
1 NEXT 
3 END PROC 
10 PROCEDURE MATRIANGSUP ARR A! 
15 T FOR R=1 TO N-1: 
2 FOR E=N TO R+1 STEP -1: 
3 IF AI(R,E)=0.0 THEN 65 
20 3 FOR C=E-1 ТО R STEP -1 
25 4 IF A!(R,C)-0.0 THEN 45 
30 4 U!--A! (CR, E)/A! (R,C) 
35 4 FOR I=R+1 TO N: 
5 AI(CI,E)-A! (IL, E) 2U! *A! (I,C) : 
4 NEXT 
40 4 GOTO 65 
45 3 NEXT C 
50 3 FOR I=1 TO N: 
4 FIzA!C(L,R):AH CI, R)--A! (LE): AN ( E, E)-F! 
55 3 NEXT : 
3 GOTO 70 
65 2 NEXT E 
70 1 NEXT R 
75 END PROC 
80 DEF FN DETMAT!( ARR A!) 
85 1 LOCAL I,D!:D!-1.0 
90 H FOR I-1 TO DIM(A!,1) 
95 2 D!-D!*A!(I,I) 
100 1 NEXT 
105 1 FN = D! 
110 END FN 
120 PROCEDURE TITRE I 
130 1 CURSOR 5,21: 
i WHILE 1<>0 DO 
2 PRINT CHR$(127);:I-I-1: 
4 WEND 
140 END PROC 
145 REM xxx PROGRAMME PRINCIPAL xxxx 
150 PRINT CHR$(12):PRINT “ RESOLUTION D'UN SYSTEME D'EQUATIONS 
LINEAIRES" 
160 TITRE 40 
170 CLEAR 5000 
200 PRINT :PRINT :PRINT "TAPEZ ЕМ 210 LES ELEMENTS DE LA MATRICE" 
205 PRINT “ЕТ EN 220 LES VALEURS DES 24 MEMBRES " 
206 PRINT "FAITES EDIT 210-220" 
207 PRINT “TAPEZ ENSUITE RUN 230":STOP 
210 DATA 1,8,2,-4,-5,12,-24,4,6,-13,-4,10,12,5,-14,-32,-44,12 
215 DATA 10.-12,46,-42,20,-17,1,5,6,-7,8,-13,-12,40,23 —45 81,10 
220 DATA 12,46,13,-46,52,82 
230 PRINT :PRINT :INPUT "NOMBRE D’ INCONNUES: ";N 
240 DIM A!{N,N),B!(N):GOSUB 2000 ^ 
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250 FOR 41-1 ТО N: 
1 READ B!(J): 
NEXT 
260 IF AI(N,N)=0.0 GOTO "CORR 
270 GOSUB 1000 
280 DE!=D!:PRINT :PRINT "DETERMINANT:";DE!:PRINT 
290 IF DE!zO THEN 
1 PRINT "INDETERMINE': 
ELSE 
1 GOTO “SUITE: 
END IF 
300 REM LECTURE DONNEES 
310 “SUITE 
FOR Ј1=1 TO N: 
1 RESTORE:GOSUB 2000 
320 1 FOR 1=1 ТО М: 
2 Al(I,J1)=Bi(I): 
T NEXT 
330 i GOSUB 1000 
340 1 PRINT :PRINT "X'";J1;"-";D!/DE! 
350 NEXT J1 
360 END 
715 DEF FN TRACE!( ARR A!) 
720 1 LOCAL I,T:T-0 
725 1 FOR I=1 ТО DIM(A!,1) 
730 2 TI=TI4+AI(I,I) 
735 1 МЕХТ 
740 1 FN = T! 
745 END FN 
750 PROCEDURE MATRIANGSUP ARR A! 
755 1 FOR R=1 TO N-1: 
2 FOR E=N TO R+2 STEP —1: 
3 IF A!(R,E)=0,0 THEN 810 
760 3 FOR C=E TO R«1 STEP -1 
765 4 IF A!(R,C)20.0 THEN 785 
770 4 UIz-AI!(R, E)/A! (В,С) 
775 4 FOR I-R«1 TO N: 
5 AI(I,E)-A! (I, E) KU! «А! (I,C): 
4 NEXT 
780 4 GOTO 810 
785 3 NEXT C 
790 3 FOR 1=1 TO М: 
4 FI-AHI(I,R):A!(I,R)--A!(I,E):A!(I,E)-F! 
800 3 NEXT: 
3 GOTO 820 
810 2 NEXT E 
820 1 NEXT R 
825 END PROC 
827 DEF FN DETMAT!( ARR A!) 
830 1 LOCAL I,D!:D!-1,.0 
835 1 FOR І-1 TO DIM(A!,1) 
840 2 D!zD!xA!(tI,I) 
845 4 NEXT 
850 1 FN = В! 
855 END FN 
1000 REM CALCUL DETERMINANT 
1010 MATRIANGSUP A!():DI=DETMAT!(A!()) 
1020 RETURN 
2000 MATREAD A!() 
2010 RETURN 
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Programmi uage: 


Le SPL. est ua assembleur 8080 pour l'ordinateur DAI Il permet aux 
utilisateurs d'appliquer ies définitions 'MACRO' et l'assemblage conditionnel. 


Les définitions ‘MACRO’ rendent possible, dans un programme en assembleur, la 
désignation d'un groupe d'instructions par un mot. 


L'assemblage conditionnel permet d'adapter rapidement un programme pour 
plusieurs buts. (ex. imprimante série ou parallèle) 


MISE EN MARCHE: 
Chargement du SPL. 
Ii suffit de passer en UTILITY — UT ret 


de lire le programme — R ret 
Démarrer S.P.L. 

Reset de UTILITY — 23 ret 

§.P.L. —» 68500 ret 


Sur L'écran apparait le titre du SPL. et une adresse de départ est demandée. Cette 
adresse indique le début de la portion mémoire que SPL, va utiliser pour stocker le 
programme en assembleur. L'adresse de départ doit être au maximum %81Ғ0 cette adresse 
est donnée sous forme hexadécimale et est suivie de ‘ret’. 


Vous pouvez maintenant entrer les commandes de SPL. 
Pour quitter S.P.L. on utilise les commandes: 


U retouren UTILITY. 
u retour en BASIC. 


faire Z3'ret' G8500 ‘ret’ 
CALLM *8500 ‘ret’ 


Pour redémarrer à partir du mode UT, 
BASIC 


Alors apparait à la place de la demande d'adresse un menu: 
SPL. :S ystem 
code source — Program 
table symboles : L abels 
intact ou non :OK ou BAD 


Pour les différentes commandes, se référer au manuel d'utilisation du S.P.L. 


DISPLAY. 
Rem.: DISPLAY est un désassembleur. 


DISPLAY est un auxiliaire du SPL. spécialement conçu pour le décodage des 
programmes en langage machine. 





DAinamic 36 43 DAICLIC 9 











Par l'assemblage de DISPLAY, le set de commandes est étendu de quelques 
intructions de désassembiage. Elles ne générent pas de sortie visible, mais elles 
produisent un fichier source S PI qui à l'aide des commandes SPL. peut être adapté. 


Avantages de DISPLAY : grande rapidité de désassemblage. 
produit un fichier source. 


DISPLAY est un désassembleur orienté listing. Une liste de commandes précises a été 
établie, liste dans laquelle est indiqué si une région précise de la mémoire doit être traduite 
en code machine, en ASCII, ou en quelque chose d'autre. 


L'une des caractéristiques les plus intéressantes du désassembleur est de générer 
automatiquement des labels. 


es commandes de la liste: 
début de {a zone à désassembler 
*  désassemble en langage machine 


= ` caracteres ASCII 8 bits (MSB 1 ou 0) 
i nombres de 8 bits 


Quelques commandes de désassemblage: 


montre la liste 


) vide la liste 

„adr désassemble à l'aide de la liste 

% adri adr2 liste le contenu des mémoires comprises entre adri et adr2. 
Guy PIETTE 
Février 86 


Club CAROLODAI pour DAICLIC. 





* REFROIDISSEMENT DU DAI * 


Le temps de calcul très long que demande fa construction d'une image de 
l'ensemble de Mandelbrot, m'a conduit à m'intéresser au refroidissement du DAI. 


Une solution trés simple et trés sure, consiste, sans faire subir au DAI aucune des 
opérations barbares déjà décrites dans la revue (trépanation, etc), à simplement déposer 
sur la grille noire d'évacuation de chaleur, un petit ventilateur à cage d'écureuil, qui 
aspire l'air chaud sortant par іа grille. 


Le modèle que j'utilise provient de récupération de matériel de conditionnement 
d'air,ne consomme que douze watts et est très silencieux. L'efficacité est excellente, au | 
point que le boitier du DAI reste à ia température ambiante, quelle que soit la dureé de 
fonctionnement. 


Ce type de ventilateur se trouve également chez les detaillants de composants 
électroniques (refroidissement de racks). 


La forme rectangulaire de la bouche d'aspiration se prete très bien à cette 
application (éventuellement avec l'aide d'un peu de carton et de plastique adhésif). 


Par sécurité, il vaut mieux laisser l'interrupteur du DAI allumé et alimenter les deux 
appareils à partir d'une prise commune munie d'un interrupteur. 


L. Laurent 
В-1188 Bruxelles 
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TEST DU MODE I DU DAI-STAR 





DAISTAR est un nouveau système d'extension pour le DAI pc qui perme d'utiliser ce 
dernier à un haut niveau. I1 fonctionne avec deux systèmes d'exploitation: MODE II ( un 
CP/M étendu que nous étudierons dans un prochain article, et MODE I qui est un DAI- 
DOS performant. 


Fiche technique: 


Deux unités de 800K (1,6Mb au total): double face, double densité, 80 pistes de 10 
secteurs de 1024 octets OU deux unités de 1200K (2 Mb au total): double face, double densité, 
77 pistes de 16 secteurs de 1024 octets: il s'agit d'un formattage identique a celui des 
disquettes 8" d'IBM | 


Remarquons que les deux formats sont parfaitement compatibles via le MODE U et 
que les secteurs, à la différence du KEN-DOS, sont écrits alternativement sur la face 
supérieure, et sur la face inférieure. Ce test a été réalisé sur un système 2 x 1,2 Mb mais les 
commandes sont identiques sur les deux versions. 


Occupation de la mémoire: 


Le DOS complet occupe 1,8 K de RAM entre *2F2 et * A36 au chargement. Le TINYDOS, 
plus réduit, n'occupe que 320 octets et peut etre placé n'importe où. 


Vitesse: 
* temps de chargement du DOS: 6 secondes, 
* BACKUP d'une disquette 1,2 Mb: 3 minutes, 
* chargement d'une image en mode 6: 42 s, 


* création-ouverture-écriture de 10000 enregistrements de 7 caractères, puis 
fermeture du fichier: 97 s. 


Une comparaison avec le test du DOS 3.0 de PRODATA (DAICLIC 3, p. 72, août 85) 
permet de mesurer la différence de vitesse. 


Caractéristiques particulières: 


Utilisation possible d'un clavier extérieur, de lecteurs de cassettes, d'un MDCR, d'une 
imprimante série et d'autres périphériques sur le DCE-BUS. Allocation dynamique: 
réutilisation immédiate de l'espace disponible sur la disquette. Gestion de fichiers à accès 
séquentiel et direct (4 fichiers simultanément). Possibilité de réduire le DOS en TINYDOS, 
et de le déplacer en mémoire en perdant cependant certaines commandes. Gestion des 
erreurs. Autostart de programmes BASIC. Interface permettant d'atteindre le DOS depuis 
l'assembleur. Compatibilité totale 


- entre les deux formats de disquettes, 

- avec tous les programmes et fichiers utilisables sur cassette audio, ex: ҒЕР, SPL, 
FGT. Seuls doivent être adaptés les programmes protégés ou utilisant toute la RAM, 

- avec les BASIC V1.1 et V1.2, 

- avec la directory, les fichiers séquentiels et directs, 

les utilitaires du CP/M. 

- les nouvelles commandes s'ajoutent directement aux anciennes sans aucun 
CALLM, POKE, REM ou DOS! 
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Type de fichiers admis: 


* BAS programme en DAI-BASIC (anciennement 0), 

е MLP programme en langage machine {anciennement 1), 
* ARR tableaux (anciennement 2), | 

* PIC copie d'écran graphique, 

* TET fichier texte séquentiel, 

* RND fichier à accès direct, 

e TPx pour d'autres type exemple TPé pour SPL. 


Liste des co S: 


e TINY version réduite et relogeable du DOS permettant uniquement les 
chargements et les sauvetages (trés utile pour le programmes MLP et pour les longs 
programmes graphiques, car ce TINYDOS peut étre écrasé sans danger.) 


e DIR, DIRA, DIRB pour afficher une directory. 
® А: В: pour sélectionner un drive. 
e ERA (suppression), REN (nouveau nom), COPY, BACKUP. 
Remarque: le formattage se fait en MODE II. 
e FLOPPY, MDCR, CASS pour choisir la mémoire de masse. 
o LOAD, SAVE, LOADA, SAVEA, R, W comme auparavant. 
© DLOAD, DSAVE pour les programmes МІР. 
o PLOAD, PSAVE pour les copies d'écran. 
ç / pour le chargement et l'exécution automatique d'un programme BASIC. 


e CREATE, OPEN, CLOSE, PRINT (écriture), INPUT (lecture), EOF (fin de fichier) 
pour les fichiers séquentiels. 


e CIN, COUT pour allouer les périphériques: 
entrée: clavier, RS232, fichier(s), MLP. 
sortie: écran, écran + RS232, fichier(s), MLP, pas d'affichage. 


e CREATE, OPEN, CLOSE, EOF, PUT (écriture), GET (lecture) SEEK (positionnement de 
la clé) POS (détermination de la clé), SIZE (longueur du fichier): gestion de fichiers à 
accès direct. La longueur de l'enregistrement varie au gré de l'utilisateur entre 1 et 1024 
octets: de plus il n'y a ni conversion, ni manipulation intermédiaire ni de déclaration de 
FIELD à effectuer avant de sauver une donnée sur disquette. Cette gestion de fichier est 
plus simple qu'en BASIC MICROSOFT et plus fiable qu'avec le DOS 3.0 de PRODATA. De 
plus la variable ERRORS , lors de la fermeture du f! ichier, permet d'intercepter des erreurs 
éventuelles, et de les corriger. 


e READS, WRITES pour lecture ou écriture directe d'un secteur. 


En conclusion, je n'ai pas trouvé de lacunes ou de défauts importants dans le système 
DAISTAR (peu de place occupée par rapport au DOS 3.0 de PRODATA, bonne gestion de 
fichiers par rapport au KEN-DOS), seulement des imperfections faciles à corriger. D'abord 
au niveau de la directory: pas d'effacement préalable de l'écran, ni possibilité 
d'interrompre le listing ou de l'envoyer sur imprimante. Ces défauts sont en partie 
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rattrapés par une présentation claire et complète en quatre colonnes, ainsi que par 
l'utilisation de la commande DIR du CP/M. 


Ensuite quelques détails: l'ajout d'une commande LOCK / UNLOCK pour protéger les 
fichiers contre une mauvaise manipulation, et la redéfinition de certains messages 
d'erreurs pas assez précis. 


Enfin, l'utilisation d'un TINYDOS en mémoire vive rend relativement complexe le 
transfert de programmes MLP depuis DCR ainsi que leur maniement: directory, lecture et 
exécution d'un ensemble MLP + BASIC (bootstrap loader). 


L'écriture d'un utilitaire permettant une manipulation automatique s'impose, ce qui 
n'est heureusement pas difficile. 


En conclusion: un mot pour résumer le système DAISTAR: professionnalisme, Cela se 
marque aussi bien au niveau de la puissance, de la fiabilité et de la facilité d'utilisation, 
qu'au niveau de la présentation extérieure: boitier solide et esthétique, manuel clair et 
complet avec les adresses nécessaires (125 pages en anglais). Le prix qui varie entre 40000 
et 80000 FB selon les versions (1 ou 2 drives, 800 ou 1200 K, 4 ou 6 MHz) peut paraître élevé, 
mais il correspond à celui d'autres lecteurs pour le DAT. Eten plus vous recevez un CP/M 
puissant et complet. 


F.LEMOINE 
Mars 1986 
Club CAROLODAI pour DAICLIC 





Quelques remarques au sujet de l'article "MICROPROCESSEURS PART 1" paru dans 
DAICLIC no. 2 
(J. DEPRAZ, VILLEURBANNE (F) ) 


ne 


1) Pour la conversion décimale-binaire, j'utilise le procédé suivant très 
pratique: on multiplie successivement par 5 et on ne retient de chaque opération 
que le chiffre le plus à droite qui ne peut être qu'un û ou un S. On remplace 
les 5 par des 1 et on les garde dans l’ordre obtenu. 







































































Ex: 59 | 
x S SIMPLE MAIS 
34 5 jl FALLAIT Y PENSER, 
x S N'HÉSITEZ PAS À Nods 
170 ENVOYER Vos T@ocS 
x 5 ET ASTUCES... 
E | = 
x 5 d | ae 
4 0 | i " КО: 
Mod 
бең ` с | 
20 a 4 Gg 
x 5 Ç. í 
DNS N 
Т ` VO. 
1000101 N 
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2) Page 48, ligne 2, je lis "la soustraction binaire n'existe раз". 


Cette 


affirmation est inexacte. TOUTES les opérations existent dans tous les systèmes 
quelle que soit la base, IL SUFFIT POUR LES FAIRE DE BIEN COMPLETER LES 


RETENUES. 

Base 2 

Addition 11 retenues 

00010011 190 

+ 00001011 + iiD 
` 00011110 total зор 

Soustraction 10101101 17 
- 01111111 = 6 
111100 retenues ET 
` 00101110 résultat 


Multiplication - AUCUNE DIFFICULTE 
110001 ! 101 

- 101 + 

1001,11... 


Division 


001901 

= 101 
01000 

- 101 
9110 

= 101 etc... 


Opérations en base 16 


Addition 1111 retenues 
6A7CED 
4BSSAC 

BSE269 résultat 
Soustraction 854372 
~ G9ACEF 

11111 retenues 

169685 résultat 


3) Complément à 2 


Pour FACILITER LA SOUSTRACTION, 
artifice de calcul, 


on passe en complément à 2. C'est un simple 


En base décimale, on aurait pu de méme utiliser le complément à 10 pour 


effectuer les soustractions mais on est habitués à les faire directement. 
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Exemple - base 10 
Soustraction directe 4562 


8612 
8613 


Complément à 10 1387 =} complément à 9 


complément à 10 (+1) 





la soustraction est remplacée par une addition 
4562 
+ 8615 


on écarte ce chiffre: 1 3175 =} 2175 


Exemple base 2 


17 00010001 
-6 => complément à 2: + 11111011 
SITTI 
* i 1 00001011 


11111010 


(il y a une faute dans le calcul page 49 ligne 8) 


4) Dans les opérations logiques, le DU indigué est le OU "inclusif". Il existe 
aussi le QU "exclusif" trés important. 


1 XOR 1 
1 XOR O 
0 XOR 1 
а XOR Q 


(1'un ou l'autre mais pas les 2) 


© зк о 


5) Soustraction en complément à 16 


854372 
- 69ACEF 


Effectuer 


&9ACHF -> complément à 15 -> 945340 


complément à 14 (+1) 965341 
854572 


+ 965341 


à négliger 1 1B96R3 resultat: 169585 
6) Une curiosité - la base 36 


Elle utilise les chiffre de 0 à 9 et toutes les lettres de l'alphabet. Supposons 
que la phrase: 


І love my DAI 


soit écrite dans cette base; si оп la convertit en système décimal, cela 
donnera: 


18 1012010 826 17226 !! 


à vous de choisir pour mieux exprimer ce que vous ressentez ! 
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DAI QUI RIT: EXCLUSIVITE DAICLIC ! 





PROCESSEUR ARITHMETIQUE AMD 9511 





Claude Picard, Chálon sur Saône (F) 


Les fonctions mathématiques du Basic sont appelées par une instruction RST 4 suivie 
d'un octet qui définit l'offset dans la table des branchements des routines mathématiques 
situées en début de ROM 1 (math package). Si le MATH CHIP FLAG (*D4) contient 0, il n'y 
a pas de fonctionnement avec F AMD 9511, et la table des branchements débute à l'adresse 
#E000 (ROM 1) Si *D4 contient *7B (= 123 en décimal), l'AMD 9511 est actif, et les 
branchements se font dans la seconde table, qui débute en *E07B. 


Autrement dit: 


RST 4 
DB 3H 


branche sur *Е003 si *D4 vaut 0 ou sur *E07E si *D4 vaut 123 car le calcul s'opère de la 
facon suivante: 


#E000 + byte d'offset + contenu de *D4 


Le byte d'offset est forcément un multiple de 3 car la table est de la forme: JMP 
LLG, donc chaque branchement s'écrit sur 3 octets. 


BYTE D'OFFSET POUR LES ROUTINES MATHEMATIQUES: 








Routine appelée Byte 
addition flottante 0 (hex.) 
soustraction flottante 3 
multiplication flottante 6 
division flottante 9 
chargement € 
récupération F 
sauvegarde ABCD dans accu. flottant 12 
récupère accu. flottant dans ABCD 15 
ABS flottant 18 
changement de signe flottant 1B 
INT 1E 
FRAC 21 
élévation à la puissance 24 
log. népérien 27 
exponentielle 2A 
log. décimal 2D 
10puissancex gf - 2 
гасіле саггее 2 a 

sinus Е ° ° ` 36 
cosinus 39 
tangente 1 3C 
arcsinus : 3F 
arccosinus fe аба £ 
arctangente Бан 

FPT -> INT TE WF 48 
INT -FPT 4B 
INT addition (4 octets) 4E 


pic: 





INT soustraction (4 octets) 51 


INT multiplication (4 octets) 54 
INT division (4 octets) 57 
modulo 5A 
valeur absolue entière 5D 
INT changement de signe 60 
AND entre 2 entiers 63 
OR entre 2 entiers 66 
XOR entre 2 entiers 69 
NOT d'un entier 6C 
SHL d'un entier 6F 
SHR d'un entier 72 


REMARQUE: l'accu. flottant est constitué soit des adresses *D5, *D6, *D7, *D8, soit du sommet 
de la pile de | AMD 9511. 


QUELQUES ADRESSES DE SOUS-PROGRAMMES DE GESTION DE L'AMD9S11 





(Ces sous-programmes se trouvent en ROM 1) 


- E53B: test 511 AMD9511 est occupé. Dès qu'il est libre, son statut est examiné. Si 
erreur, émission d'un message d'erreur, sinon, retour à l'appelant. 

- Е55Е: charge l'AMD9511 avec le contenu de A, B, C, р si pas d'erreur à l'opération 
précédente. 

- E588: charge l'AMD9511 avec le contenu des mémoires (HL), (HL+1), (HL+2), (HL+3) 
et détecte les erreurs sur l'opération précédente. 

- E599: récupère le sommet de la pile du 9511 et le met en (HL), (HL+1), (HL+2), (HL+3). 

- Е56Е: récupère A, B, C, D du sommet de la pile du 9511 et restauration de ce sommet 
(car lecture destructive; voilà qui fait penser a FORTH !). 

- £527: transfert de la variable pointée par (HL) dans le 9511. Envoi de la commande 
spécifiée par l'octet suivant le CALL 0E527h dans le registre de commande du 9511. 

- E535: transfert de l'octet de commande qui suit le CALL 0E535h dans le registre de 
commande du 9511, dès que celui-ci a exécuté sans erreur l'instruction précédente. Ce 
sous-programme permet l'imbrication des commandes sur une même donnée. 

- E9DB: transfert de А dans (HL), В dans (HL+1), C dans (HL+2), D dans (HL+3). A la fin, 
HL pointe sur (HL+4). 

- EAOE: transfert de (HL), (HL+1), (HL+2), (HL+3) dans BCD. 

- ЕА16: met à 0 l'accu. flottant et les 4 mémoires pointées par HL. 

- ECCC: charge le commande pointée par HL dans le 9511. 

- ECD2: envoie un NOP au 9511. 

- ED83: teste si BCDE est nul ou non et positionne le flag Z (BC,DE-0 --» 7-1) 
i - ED95: prend le statut du sommet de la pile et le place dans l'accu. A. 





А DAIQUIRI 


Voici les ingrédients de ce délicieux cocktail au nom 
prédestiné š 


1⁄4 Jus de citpon 
3⁄2 Rhum 
1 petite cuillère de sucre en poudre 


Préparer dans le mixer avec de la glace pillée et servir dans 
une goutte basse (traduisez ‘verre de forme cylindrique еї 
légèrement pansue’{on en apprend des choses dans DaAlclic 1). 
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Zo. CHARGEMENT. 
EE 


La cassette contient: 





1.CHARGEN V1.0 (BASIC) 
1 . INTRODUCTION. 2.HELVETICA 22 (1Е70-5307) 
— кее СОНЫ 3.HELVETICA 12 {1E70-314E) 
Une présentation de ce programme a été faite dans la revue 4.PICFONT 0/9+M (1E70-42DC) 
DAinamic 83-19.La cassette contenant le CHARACTER GENERATOR 
est accompagnée par une notice qui en donne le mode d'emploi Ces programmes permettent de générer au choix deux polices 
en MANUEL et en AUTO. Toutefois, aucun renseignement n'est de caractères et des pictogrammes.Le CHARGEN se charge par 
fourni en ce qui concerne la manière de modifier la couleur une commande LOAD. Il faut passer en UT et,par une commande 
du texte ni comment créer ou modifier des caractères. Ceci R,charger la police désirée. Le retour au BASIC se fait en 
est un inconvénient car,si ce programme contient certains tapant B.Les caractères HELVETICA occupent 22 ou 12 paires 
caractéres  yougoslaves, il ne s'y trouve pas les de lignes TV en hauteur.Un caractère est contenu dans une 
caractères spécifiques A 1а langue française tels que matríce dont les dimensions maximales sont 256*256 points 
les lettres accentuées. Le but de la présente notice est (MODE 6). I1 faut prendre soin de ne pas déborder de 
d'apporter des éléments complémentaires nécessaires pour l'écran:les ootets excédentaires risquent de modifier le 
permettre ces ajoutes ainsi que celle de pictogrammes. LINE CONTROL et de détruire la page. Chaque caractère peut 
Elle décrit les modes MANUEL et AUTO avec,en plus,un mode ètre positionné avec précision sur l'écran par déplacement 
PROGRAMMABLE. Ce dernier est très utile pour la création du curseur spécifique à ce programme.Les caractères sont à 
de génériques vidéo par exemple. Le tableau ci-dessous, espacement proportionnel. 
extrait de la revue DAInamic déjà citée,illustre les polices 11 est facile d'avoir des caractères pleins (BOLD) ou 
de caractères et les pictogrammes contenus à l'origine dans seulement leur contour (OUTLINE). 
la cassette. La couleur du fond, du contour, du caractère ainsi que du 


curseur sont modifiables par COLORG. 

Si la police HELVETICA 22 a été chargée, un programme de 
démonstration s'exécute automatiquement.Il suffit de pousser 
sur la touche SPACE pour l'arrëter. Il y a le choix entre un 
mode MANUEL,un mode AUTO et un mode PROGRAMMABLE. 

L'action sur la touche SPACE fait passer en mode MANUEL. 


ABCGDEFGHIIJILMN® ABE ЕНИ. ЗЕ. БАРЕ j 

PORSTUVMXS7 ZIE PORSTUYYM БЕ ЧҮ Sens 3 . MODE MANUEL. 

GESTEOOPROBE Us | аветавәіефта”()з a een Gee M eS 
BSH EOP saneno III m P 














1 † — ج‎ les 4 flèches du curseur déplacent celui-ci de 1а 
Госса АОДС Осо о] а ез g Кай ШЕ ті өз BE largeur d'un caractère. 
SHITT... chaque fleche accompagnée de SHIFT déplace Ie 


curseur d'un point. 


Fees EYE 
CHAR. DEL recul et effacement du dernier caractère. 


ET E TAB efface le curseur 
3 с 2 (une autre touche le fait réapparaitre). 





ЕР T TAB C efface l'écran. 
| d TAB H HOME sans effacer l'écran. 
CEST pd ud uis 1 TAB L efface depuis le curseur jusqu'à la fin de la ligne. 
meam» | eum TAE X efface depuis le curseur jusqu'à la fin de ia page. 
| : TAB P place le curseur au dernier TAB 
бел ПЕ а Есе) "š (par défaut:dans le tiers inférieur de l'écran). 


TAB Т place un nouveau TAB еп effacant le précédent. 
TAB E relief ON/OFF {pas utilisable en mode AUTO). 
TAB 5 marque ie début de l'enregistrement en mode AUTO. 
TAB R marque l'enregistrement de chaque ligne 

(si TAB S a été actionné préalablement). 
TAB A passage en mode AUTO: 1'écran s'efface,le curseur 





s'éteint et 1а première ligne apparait. 





HELVETICA 22 
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1l est possible d'utiliser différentes polices de caractères. 
Lorsque la premiére partie du texte est écrite: 

~ àppuyez sur із touche TAE 

- appuyez sur la touche BREAK 

- Placez la cassette au début du fichier souhaité 

- passez en UT 

- R pour charger 

- B pour revenir au BASIC 

- RUN pour lancer le programme. 
Attention: si la police  HELVETICA 22 est sélectionnée, le 
programme de démonstration recommence en détruisant le texte 
précédent. Pour éviter ceci,il suffit d'effacer la ligne 40 du 
programme СНАНСЕМ. 


4 . MODE AUTO. 


Les touches ont pour fonctions: 


t efface l'écran. 
de efface l'écran et affiche la ligne précédente. 
SPACE efface l'écran et affiche la ligne suivante. 


SHIFT … affiche la ligne précédente. 
SHIFT — affiche la ligne suivante. 


R répète Іа ligne (utilisé généralement après |] ). 

T efface l'écran et affiche la première ligne. 

B efface l'écran et affiche la derniére ligne. 

F retour au mode MANUEL avec effacement des lignes en 
mémoire. 

L retour au mode MANUEL et permission d'écrire aprés 
les lignes déjà en mémoire. 

-5 retour au mode MANUEL et affichage de la dernière 


ligne (les autres sont effacées) . II est possible 
d'écrire après cette ligne) 


Note:si vous utilisez les caractères minuscules, vérifiez que 
toutes les commandes sont données en MAJUSCULES. 


Exemple: 


Réalisez le titre: 
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* LOAD chargez le programme CHARGEN, 
* UT passez en UTILITY. 
{4 R lire HELVETICA 22. 
€ B retour au BASIC. 
* RUN lancez le programme. 
SPACE l'écran s'efface et le curseur apparait. 
1 -- =» positionne le curseur sur l'écran. 
ТАН Б début de l'enregistrement 
(n'est tapé qu'une seule fois). 
DAI écriture de la première ligne. 
TAB R enregistrement de la première ligne. 


-— + | | positionne le curseur au début de la deuxième ligne. 


nlalmiile écriture de la deuxième ligne. 

TAB R enregistrement de deuxiéme ligne. 

+ + 4 } positionne le curseur au début de la troiséme ligne. 
CLUB écriture de la troisième ligne. 

TAB R enregistrement de la troisiéme ligne. 

TAE À appel du mode AUTO. 


TU 


utilisez les touches du paragraphe 4. 


ODE PROGRAMMABLE 





S.1.PRINCIPE DU DESSIN. 


Un caractère est contenu dans une matrice ayant comme dimensions 
256 * 256 points. Le dessin se fait en mode 6 (donc à 4 couleurs 
puisque c'est un mode pair). Prenons comme exemple la lettre 
minuscule e 








L'origine de la matrice est le coin inférieur gauche.Le nombre de 
points en largeur et le nombre de points en hauteur de la matrice 
est exprimé en hexadécimal.Pour notre exemple: 


La 


la 


rgeur 21 points soit 15 en henadécimal 


hauteur 17 points soit 11 en hexadécimal 
couleur de chacun des points contenus dans la matrice est 
définie par les quatre registres de l'instruction COLORG 1 2 3 4: 
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- la couieur écrite en 1 donne Ia couleur du fond. 

- la couleur écrite en 2 donne la couleur du contour du caractère. 

- la couleur écrite en 3 donne la couleur du curseur. 

- la couleur écrite en 4 donne із couleur intérieure du caractère. 
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| SER mete ت ت و‎ een 


san 


Ti faut 17 * 6 = 102 octets pour cet exemple 
Les majuscules de Іа police HELVETICA 22 ont une hauteur de 14 


heradécimal soit 21 points et les i I 
: | E š minuscules ont une h t 
Par exemple: COLORG urseurintèrieur 11 hexadécimal soit 17 points. La lettre 5 бенен cQ Н 4% 


hexadécimal dont 05 heradécimal pour іе jambage € 16-05: 
retrouvons la hauteur 11 >. 





avec contour et intérieur nous 


Eben que Te contour Le tableau ci-après donne l'adresse de chaque lettre de cette 
contour et intérieur Қ 
de méme couleur 
pas de curseur “Ж HACCS 
#3822 
#3B8B 
#3C12 
3C7B 
#3D02 
*3D6E 
*3DC6 
#3E4D 
#3ED4 
#3F03 
#3F72 
#3FF9 
#4028 
#40B3 
#411C 
$4185 
%420С 
#4293 
#42DA 
#4343 
#439A 
#4405 
%49АҒ 
%4403 
%ЯАЗА,. 
#444C 
#4D4C 
#4DF1 
#4C44 
#4АС 1 
#5307 





Les quatre couleurs sont codées: 


fond 

contour du caractère 
curseur 

intérieur du caractère 


E 
So Ne 
meoo 
Or QG 


Certaines lettres minuscules ayant un jambage descendant ,un octet 
permet de donner la dimension de ce jambage. 
Le codage d'une lettre se fait en donnant: 


la largeur - la hauteur ~ le jambage - les octets de couleur. 


Pour notre exemple,le premier octet contiendra 15,le deuxiéme 11, 
le troisième 0.Les suivants définissent le caractère. 

Pour les 21 points en largeur, il faut utiliser 3 octets,soit 24 
bits: les bits excédentaires ne sont pas dessinés sur l'écran. 
Chaque ligne nécessite donc 6 octets pour coder les 4 couleurs 
En effet, en mode 4 couleurs,les deux bits qui définissent la 
couleur sont répartis dans deux octets consécutifs. Le point le 
plus à gauche est le bit 7 et Ie point le plus à droite est le 
bit 0. 


adresse haute ziee lele 


adresse basse 





мю оо AG = ON: 







А 
E 
с 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
о 
P 
a 
R 
5 
T 
Ч 
у 
М 
X 
Y 
2 
£ 
\ 
1 


ter eee $ < oe m no U O HBH Hoe won oce Han m m соо тош 


point Ie plus à gauche point le J à droite 


Les couleurs sont codées: і adresse haute 
1 adresse basse 


B 





5-2.MODE PROGRAMMABLE 


COLORG 4 
Nous voulons par exemple réaliser un généri i 
| | que vidéo se déroulant 
D'où le codage de la lettre e : comme suit: 
= T - écran bleu clair pendant 2 secondes 
première igne - à arition du texte DAIn i а 
jambage ee amie en lettres blanches bordées de 
haut г і 
ies eu - aprés une seconde, apparition d'une bande bleu fdneé derrière 
argeur le texte 
- ensuite,chaque lettre se détache en relief 
T 15 i1 dopo 01 00 FE 00 00 00 OF FC FF 00 - pour terminer, une deuxième ligne de texte apparait et affiche 


CLUB sans relief 
Le programme est donné сі-аргев.11 est évident que,pour qu'il 
soit exécutable,il faut charger la police HELVETICA 22. 


3D10 CO 07 3F FF FF BO FO iF 7F FF FF EO F8 3F 7F 03 
3020 FF FO F8 ЗЕ FF 00 87 00 ЕВ 7C FF 00 QO 00 00 7C 
3020 FF 00 FF 00 F8 7F FF FF FF FO FB 7F FF FF FF FO 
3D40 F8 7C FF 01 FF FO FS ЗЕ FF 03 BF EO FS 3 ТЕ 07 
3050 FF EO FO IF 7F FF FF CO FO 07 3F FF FF 80 EO 00 
3D40 OF FC FF 00 CO 00 01 00 FE 00 00 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
510 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 





КЕМ» сосет АЛЫ Stek one dote GENERIQUE 

COLORG 12 0 12 15:MODE 6 “ars ss... INITIALISATION 
WAIT TIME 100  J—  .................... ATTENTE 2 SEC 
ech, L^ belg Ueto ag Satie ык 3 decode vede gps RELIEF 
XW-70:Yha143 O ..................... COORDONNEES 
A$z"DAInamic" — .................... TEXTE 1ERE LIGNE 
GOSUB 210 

WAIT TIME 50 
POKE #888C,#CC 
POKE #A69E,#C1 
EWSEU. se € oed eeh nr н rs RE dE RE ES RELIEF 


P ЕХ e ATTENTE 1 SEC 
WAE En at ИЛК EE BANDE DE COULEUR 


Xh270:YUux143 — ..................... COORDONNEES 
AS="DAInamic" 

GOSUB 210 

Ене ENES aes uu RELIEF 
Kh=140:Y%=105  .....,..,........... COORDONNEES 
Абас з Léa eg Eten ЫРЫ TEXTE 2E LIGNE 
GOSUB 210 

WAIT TIME 200  ,................... ATTENTE 4 SEC 
GOTO-1Q0 Аа ae ete IS ON RECOMMENCE ! 
НЕМ Gur Rd à ace te mk Cuir I SORTIE DE CHAQUE CARACTERE 


FOR I%=1 TO LENCAS) 
Ah=ASCCMIDS CAS, 1'h-1, 12) 

TOR J%=1 TO E% 

GOSUB 340 

CALLM #1EDO 

X%= X%— 1: Yu Yl 

NEXT J% 

R= K+ Eh: Yh = Yh EY 

X1%=PEEK(#1FF7) 

Х%=Х%+Х1%+ХХ% 

МЕХТ 1% 

RETURN 

REM 22b ws p ва ebria EMISSION DE CHAQUE CARACTERE 
DY%=255-Y% 

CB%=#BFEF-DY%* 90 

IF Х%%0 THEN X%=0 

DX%=X% MOD 8 

AB%=CB%-4-2*%*(X%/8) 

LB%=AB% MOD 256 

HB%=AB%/256 


POKE #1FFC,A% 

POKE #1FFD, DX% 
POKE #1FFE,LB% 
POKE #1FFF,HB% 
RETURN 
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5-3 DESSIN D'UNE BANDE DE COULEUR 
— r. 


Nous disposons de couleurs supplémentaires еп écrivant 

directement dans l!'octet de controle de couleur des lignes 

de la mémoire écran. En MODE &,il ya 256 lignes numérotées 
L 


de 0 à 255 de bas en haut а ligne 0 de Ia mémoire écran 
contient 

- 2 octets de controle 5648 56649 

- 2 octets pour le bord 8644 6647 

- 84 cctets pour la ligne EK 6645 

- 2 octets pour le bord 65FQ é5F1 
Les 84 octets pour la ligne permettent de coder les 336 
Points en 4 couleurs (2 bits Per point}, soit 336 * 22/8 
octets 


L'écart entre 2 lignes est dès lors de 90 octets € en 
décimal y. L'octet de couleur de la ligne 0 est en 6468 (Н). 
L'octet de couleur de La ligne 255 est en BEER CH). Le 
tableau de la page suivante donne l'adresse de l'octet de 
couleur de chacune des lignes. La couleur s'écrit 





#Ce 
#CO noir #08 gris 
1 bleu vif 9 bleu marine 
2 pourpre A orange C10) 
3 rouge vif В mauve (119 
4 violet С bleu clair (12) 
S vert D vert clair (13) 
6 Brun clair E jaune (14) 
7 brun moutarde F blanc C15) 
BFEE 255 
A69E 182 
8858C 98 
octet де couleur 6648 ligne 9 


90 octets 


km, A 


La couleur générale du fend est donnée par 1e COLORG 

Si nous voulons un fond bleu clair: С COLORC 12 0 12 15 
Еп éerivant dans l'octet de couleur d'une ligne, l'écran 
prend cette couleur de cette ligne jusqu'à la licne 0. 

Si nous voulons dessiner une bande de couleur bleu vif de la 
ligne 183 à la ligne 98,il suffit d'écrire: 


FOKE #888C,#cc couleur bleu clair 0. ?8 
POKE #A49E,#Ci couleur bleu vif 98 - 183 


La couleur de 183 à 255 reste celle du COLORG 
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1 
1 
4 
4 
1 
1 
À 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 


o o 


BF3A 
BF94 


BFEE 








CURSOR 12,1 PRINT "Au revoir et... quand vous voudrez HI!" 
WAIT TIME 150PRINT CHR$(12) 








Ë £A 7CCB8 12:8 92 ACE 
i 65 7092 129 93 AA22 
2 &5 2020 135 94 AA7C 
2 £7 7DD& 131 95 AADS 
4 58 7ESO 132 ?6 АБ50 
5 89 7EBA 133 97 ABBA 4 ынтыла SUR LG CAE ee 1030 FOR ]8=0 TO 99:8(8)«0.0 NEXT 
| Mur 1050 CURSOR 12,5PRINT E 
| 5 70 7ЕЕ4 134 ABE4 4 REM AUTEUR : GILSON PELICIEN Kos Se SIE 1500 
| £ $B BE ?і ?ЕЗЕ 135 АСЗЕ 2 TIM COPTRIGHT к INDIVIDUEL 1100 С8-9118-4724-9Е18-0%28-50%05/8 1500 
| ° S 1110 С8-1018-028-951Я-0Е28-50005/78 1500 
8 $918 72 ?F98 136 AC?8 7 REM 1120 CRETA AE HERR EROR 1500 
79 2 3 2 gd, 1170 $-10 
9 6972 73 TET 137 АСЕ2 8  MODEOCOLORT O 10 0 0 180 Oe 
10 2906 24 Boac 138 ADAC $ POLUM PROLOGUE DU JEU 1200 FOR J80 TO 99 
ee 10 PRINT CHRS(12): BEM. BOUCLE DES PARTIES 1210 IF A(J8)o0.0 OR B(JRXS GOTO 1230 
11 £A26 75 B80AE 139 ADAS 12 GOSUB 600:REM. PROLOGUE DE LA PARTIE 1220 AE ТИЙ CAJAS BEDOT LO 
12 88809 é 8100 140 АЕ00 14 00505 700:ЕЕМ. PARTIE E 1225 IF bäi THEN 001.018 Q'RNDORS)« 1.0 THEN CRJ 
5 p 141 AESA 15 PRINT INPUT Voulez-vous rejouer ОЛІ "R$ 1230 NEXT 
12 SADA 1 Е 16 RI$=LEFTSRS, ІР R1$070" AND R1$o N” THEN PRINT CHR$(12)-PRINT 1235 CURSOR 24,3PRINT " 
14 5834 і42 AEE4 раг OUI ou NON svp." WAIT TIME 1006070 15 1240 CURSOR 24,5PRINT “en” CR:WAIT TIME 15 
$ 53 18 IF 8440 GOTO 10 1250 А(СЯ)-50 
15  &B8E 143 AFDE 20 60508900 1260 GOSUB 4500 
14 BES 144 AF49 25 END 1270 НЯНЯ» i 
re KS > i 30 PRINT CHR$(12):WAIT TIME 50 1250 1P N8-100 OR (5-0 AND N&> 1.0) THEN PR=2 
D өс42 8 145 AFC2 50 POKE "295, "ECPOER *29C,°2 CLEAR 5000:DIM MLP(20.0) RESTORE:18«0 1290 IF $:4V(20.0) THEN ЕЗ1 
MS pore б 146 BO1C $0 READ АЗАР A$00.0 THEN POKE 92Е8»18,4413-18» 1GOTO 60 1300 RETURN 
18 CPE 8 1 70 DATA ^5,C5,785,23,223,^46,?23,? 4K 92A," 9892 "C596," 9CD.39, DE, 
19 CFá 8 147 B076 ЕСЕККЕ 
204959 8 148 BODO 90 BATA eee tien 1520 CA4R=4°CR 
222,24? LE 35,2,32,923,91,Е1,С1,9Р1,2С09,223,278,284,2С0,923°78,°В0,5 1530 FOR |8-)1810)25 
21 DAR 85 142 BEER <%0 1510 FOR FERIA TO 28 STIP 10 
22 8Е04 8% 150 B184 1550 АЯ-)8%(898-4%С44%24-0 
23 ESE 87 151 BIDE 100 1370 қалта STEP С818-24%А(РЯ)НЕКТ 
24 ¿ENS 152 B238 120 DIM A(99.0)5(99.0),V (2 1.0),008(9.0) 1590 IF Qo0.0 THEN FOR РЯ»А TO BR STEP CES(PR)eB(PS)QNEXT 
2% 130 DIM XJ8(5.0)Y]2(5.0) XIH$(4.0)3/H2(8.0) 1600 NEXT 
25 6F12 153 B292 200 PASES19CORPS« 190C0RR Ba 78 1610 NEET 
26 6F4C 154 B2EC m пато 1620 RETURN 
27 SECS 155 B344 280 NEXT 
28 7020 B3A0 285 ree 5 
29 707A B3FA 300 READ VS) 2010 CURSOR 12,1PRINT * Ы 
3 200 в454 310 NEET 2020 CURSOR 12,2:INPUT ‘Qu'elle case jouez-vous "АЯ 
30 „apa 320 DATA .01,03,5,10,10000 2030 IF ASO OR A899 THEN CURSOR 12,1 PRINT "Attention de 0 a 99 
81 712Е B4AE 325 PTRR«360CALLM 750PTR& SYP. WAIT TIME 120G0TO 2005 
$30 FOR |8-5 TO 20 STEP 5 2040 IF А(А8)00.0 THEN CURSOR 12, PRINT “Cette caso est deja occupee 
22 2188 B508 340 READ V(J8) H:WAIT TIME 1009070 2005 
33 183 B542 350 NEXT 2060 А(А%-10 
3 LEZ 360 DATA .1,2,100,1000000 2070 GOSUB 4000 
34 220 B5BC 370 FOR 19-1709 2080 NBN: 1 
35 Bété 399 COR(R)-CORFS*IS-CORRS-NEXT 2100 IF NBs 100 THEN PS=2 
35 490 RR«0 2110 ІР BAAR) =V(4.0) THEN РД--1 
36 B670 520 00508 7000 2220 RETURN 
P 590 GOTO 10 3000 COLORT 8 10 0 OCOLORG 8 0 14 IMODE 6A C188 2890 C32« 14 CARL 
37 BéCA 600 GOSUD 3000 3010 DIM XB8(4.0) YB8(4.0) XHR(4.0),7HR(4.0) 
33 B724 — sU í |, ——- Y 3020 PILL 70,12 268,210 C28 
М. 610 REM PROLOGUE DE LA PARTIE 3025 PTRS«3040CALLM 750 PTRE 
39 EA Sc OE 3030 FOR 1%» 1 TO 4READ XBX(IS) YBR(U)XHR(12) YHROR)NEXT 
20 B7D8 630 FOR J#=0 TO 99 3040 DATA 4,0,6,10,2,1,8,9,1,2,9,8,0,4,10,6 
9 840 А(%)-0.058)-0.0 3050 POR 74-191 TO 20 STEP -19 
41 105 B832 650 NEXT 3060 POR Х8-78 TO 249 STEP 19 
2 с 660 НЯ-078-0 3070 FOR 18-1 TO 4FILL X92X53(18) Y82Y58(18) XS XH9(18) YR VHRR) 
42 B88c 670 RETURN CIRNEET 
& | - 0 0 0  - CL L óÓCI  IIIIIIII IL I  M“WG=—— ИШТЕТ 
43 07 ВВЕ 700 REM PARTIE T 
44 оз рас л ӧл 
5 ) B99A 710 PRINT CHRÉÍ(12)CURSOR 12,2:INPUT "Voulez-vous commencer “R$ 
45 e? 720 RIS-LEFTS(RS, DIF R1$070" AND R130°N" THEN PRINT PRINT ` 3087 PTRE«3110CALLM 750, 
ag © В9Ғ4 Repondez par OUI ou НОН svp." WAIT TIME 1005070 710 3090 FOR 181 TO 12 
š BAGE 730 IF R$="0" THEN PRINT CHRS(12)GOTO 770 3100 READ XLSYLS 
47 1 À 735 PRINT CHR$(12) 3110 DATA 
49 2 EAAB рм 57,193,63,193,63,174,63, 155,63, 136,63, 117,63,98,63,79,63,60,63,4 1,63,22,81,3 


3240 FOR 18-1 TO 2 

3250 READ XLETLE 

3260 DATA 57,136,138,3 

3270 DRAW XLSYLS HL%+3,TLS C2RDRAW XL&YLS«6 518937186 
C2EDRAW ELS LYLI& 3 ELS 471866 C28 


4 
і 
+ 
ree 740 REM BOUCLE 3120 DRAW XLS^1YLS 21595718 CORDRAW XLS 1 YL 1143,71846 
49 13 cbr M 0000000 Хуааадазуаа ын алалы ты C2RDRAW 1187141 XLEYL3^5 CORDRAW ХЫ 4,YL 1 214471895 C28 
50 14 BBSC 750 60508 6000GOSUB 1000 3130 NEET 
© i 760 1PF$00.0GOTO 800 3135 PTRS-3160CALLM 750PTRE 
$1 15 BEES 770 GOSUB 5000GOSUB 2000 3140 FOR 131 TO 2 
d Е 780 1ЕРЯ-0 GOTO 740 3150 READ XLSYLS 
52 16 POE ШЫ асы Aa 3160 DATA 58,174,101,3 
ES 17 BCSA 800 REM FIN DE LA PARTIE 3170 DRAW XLXYLS XLRe2, YLE C2SDRAW ELS» LYLS KLZ 1, TL 6 С2Я ФОТ 
ЖУ Ж q 118148528 
54 g 18 ECCA 510 PRINT CHR$(12) 3100 NEXT 
55 gor 19 BDIE 830 IF FZ! THEN GOSUB 10000 3185 PTRS-3210CALLM 750,PTRS 
м 2978 TR 840 IF FSa(-1) THEN GOSUB 20000 3190 FOR 1841702 
54 Eé 29 ED?8 650 IPFRoi AND FRo(- 1) THEN GOB 30000 3200 READ KL3TLS 
= PS „+ BDD2 860 CURSOR 12,2:PRINT "Nous avons joue cotte partie en” HS coupe .." 3210 DATA $7,155, 119,3 
5 52 21 2 870 RETURM 3220 DRAW XLR TLR 51796718 C28-DRAW EL LYLSe 1 ELES, YLile4 
ý ac 29 ЕЗ 0 «Жоспары ыы иу eee іы C2SDRAW XLI LYLI^6 KLR 3YLS46 C28DOT Х1.8,1145С28007 
©; AE es 900 REM EPILOGUE DU XLS+4YL3:5 C28 
8 23 BEBE 10 м рот a — д талан nn 3230 NEXT 
5 24 BEEC 905 PRINT CHRS(12) 3235 PIRS=3260CALLM 750PTRE 
4 25 
24 
27 
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3250 DRAW 214811353 AL Be ALE CORDRAW ТАТ, 1 515471592 
C28 

3290 NEXT 

3295 PTRR=3320CALLM 7502785 

3300 FOR 151 TO 2 

3310 READ ELSTLS 

3320 DATA 57,117,157,5 

3330 DRAW 114,71392 214547142 CZRDRAW 11893718 11371546 
C2RDRAW 21471383 X322 11345 C28 

3340 NEXT 

3345 PTRE«3370CALLM 750 PTRR 

3350 POR 184-1702 

3360 READ XLRYLS 

3370 DATA 57,98,176,3 

3380 DRAW ХІЯ» 1,719 XLR 3 LS C2RDRAW 21,3,71494 ELSA TL 
C2RDRAW NLR YLBo6 XL 4 1.846 C23 

3390 DRAW 14471551 ULB4,YLRo3 C2BDOT XLS.YLS+ 1 C2RDOT Х18,714»5 
c 

3400 NEXT 

3405 PIRS«3430CALLM 750PTRS 

3410 FOR 181 TO 2 

3420 READ XLRYLS 

3430 DATA 57,79,195,3 

3440 DRAW XLR« LYLE 1189314 C2RDRAW ЖЛ» LYLS«5 XLRe3TLEe3 
C2RDRAW XLB+2, L6 XL ALE C28. 

3450 DRAW KL3TL 1 1,571,594 C2RDRAW XLRe4 LR 1 115447152 
C2RDOT ALB 111895 C23 

3460 NEET 

3465 PTRS=3490CALLM 7502788 

3470 FOR 18-1702 

3480 READ XL3TLS 

3490 DATA 57,60,214,3 

3500 DRAW XL3«2,113 Х1,492,71.842 C2RDRAW XLB+2,YL+3 KL 4 1155 
C2BDRAW (LTL 1.864, 1LR46 C28 

3510 NEXT 

3515 PTRE«3540CALLM 750PTRE 

3520 FOR 18=1 TO 2 

3530 READ ХЗ ҮЗ 

3540 DATA 57,41,2333 

3550 DRAW XLS» 1YLS XLB+3,7L8 COEDRAW XL LYLEe3 11493,71593 
C2RDRAW XLR» LYLR«6 XLR« 11896 C28 

3560 DRAW LR YL 1 ILAYLA+2 C2SDRAW XLE YLR«4 KLE ILES 
C2RDRAW XLB+4,YLR+ 1 XL8»4 1352 CORDRAW XLR«4, YL8«4 LEA TLS 
cas 

3570 NEXT 

3575 PTRB«3600CALLM 750PTRE 

3580 FOR 13-1 TO 2 

3590 READ XLRYLR 

3600 DATA 57,22,252,3 

3610 DRAW XLR 1, TLR XL%+2,7LR C2RDRAW XLR LYLRA3 XL 3YL $43 
C2RDRAW XLS« 1 YLR+6 114571456 C28 

3620 DRAW XLRTLRe4 ELRYLRA5 C2BDRAW XLR 3 TLE 1 XLRe4, T1342 
C2RDRAW XLS«4 342 XLe4, L805 С25 

3630 NEXT 

3700 PTRE«3740CALLM 750PTRR 

3710 FOR 1841 TO 7 

3720 READ XJ8(18)]&(1)XJH8U 8) Y JHRIR) 

3730 NEXT 

3740 DATA 0,8,20,12,1,6,19,14,2,4,18,16,3,3,17,17,4,2,16,18,6,1,14,19,8,0, 12,20 
3900 RETURN 





4005 CHIS«AS 

4010 IP CHIS(10 THEN YS 191 3X3-CORRSCHISSPASS GOTO 4300 

4020 IF CHI&«20 AND CHI 9 THEN Y8«172 RR=CHIR"PASR-COR{1)GOTO 4300 
4030 ІР CHI«30 AND CHI» 19 THEN Ye 1533 «CHI S*PASS-COR(2)60T0 
4300 

4040 IR CHI8«40 AND СН18›29 THEN T» 134J3«CHIS*PAS-COS(3)G0TO 
4300 

4050 IF CH18«50 AND СНІЯ39 THEN Y3«115:XS«CHI S*PASS-COR(4)G0TO 
4300 

4060 13 СНІЯ 0 AND СНІЯ49 THEN Y$«9018-CHI S*PAS8-COS(5)GOTO 4300 
4070 IF CHI$«70 AND СН1%›59 THEN Y$277:X8-CHIS*PASS-COS(5)GOTO 4300 
4080 IP CHIS«60 AND CHIfDÓ9 THEN Y82508 .X8=CHIS*PASS-COS(7)GOTO 4300 
4090 IF CHIR<90 AND CHI 8:79 THEN Y3e39:X S«CHIRIPASR-COS(8)GOTO 4300 
4100 1F CH1369 THEN 182203 8«CHISSPASS-COR(9) 





RN FOR 1821 TO 4FILL XSHXBR( RS) YRAYBR(R) EXXHSOR) TR YHS(I2) 
CS NEXT 
4310 PRINT CHR$(12): RETURN 


4500 REM L'ordinateur joue 





4505 CHI2-CE 

4510 IF CHI$<10 THEN 182191 X8-CORRS«CHI STPASSGOTO 4800 

4520 IF CHI$«20 AND CHI$»9 THEN 2-172 X8-CHI 8*PAS8-CO(1)GOTO 4800 
4530 IF CHIS«30 AND CHI3»19 THEN Y3- 153X 8-CHIS*PASS-COR(2)G0TO 
4600 

4540 IF CHIS«40 AND CHI3:29 THEN T8«134X8-CHIS*PASS-COS(3)60T0 
4800 

4550 IF CHI$:50 AND CHI2»59 THEN T%e 115X2-CHIS*PASR-COR(4)60T0 
4000 


4560 IP CHI3«60 AND СНІЗ›49 THEN Y3«96-3 8-CHIS*PASS-COS(5)G0TO 4800 

4570 IF CHI3:70 AND СН1Я59 THEN Y8277XS«CHI S*PASR-COR(6)GOTO 4800 

4580 IF CHI3«60 AND СНІЯ>69 THEN Y$258X2«CHIS*PASS-COS(7)G0TO 4800 

4590 IF CHIR<90 AND CHI3»79 THEN Y$239X 8«CHISPASS-CO(0)GOTO 4800 
4595 1F GHIS$:69 THEN 13«20X 8«CHIR*PASS-COS(9) 

4800 FOR 18-170 ÁFILL XSAXBS( S) YRAYBRS) XS-XHS() YEYHR( 2) 
CASNEXT 

4900 WAIT TIME SORETURN 

5000 11892961 13-101 FILL 17,100 40,125 C18 

5020 FOR I$«1 TO ? 

5060 FILL X 1342/8(3) Y 1341] 808) ELSE ST 18^Y]HRQ 8) СЗЯ NEXT 
5100 RETURN 

8000 X28-18Y28-101#ILL 295,100 316,125 CIS 

6020 FOR I%=t TO 7 

6030 FILL X28:XJR(3) 123«T]8(18) X28»X]H8(18) 1232 Y]HR(L S) CORNET 
6100 RETURN 

7000 PTRS«7060CALLM 750 PTRS 

7010 COLORG 0 0 0 ОМОРЕ 3A:WAIT TIME 25 

7020 FOR 18«1 TO 116 

7030 READ X& YR 

7032 IF X1»103 THEN COL 12:60TO 7050 

7034 IF X38595 THEN COLS=10GOTO 7050 

7036 IF 1307 THEN COL%=14:GOTO 7050 

7038 IF Х8>50 THEN COLS« 1 1GOTO 7050 

7040 IF 29:71 THEN COLS» 13GOTO 7050 

7042 IF X863 THEN COLZ=2 GOTO 7050 

7044 ІР 2855 THEN COLS» 15GOTO 7050 

7046 IF X847 THEN COLR=1 

7050 DOT X8,Y8 COLR:WAIT TIME 6.НЕХТ 

7060 DATA 76,54,96,53,88,53,81,56,100,55,56,54,72,56,50,54,64,53,7453 
7070 DATA 46,51,106,50,98,53,68,50,58,50,82,53,62,50,60,55,96,5 1.9056 
7080 DATA 52,53,74,56,48,56,104,50,60,53,72,50,92,54,66,56,96,56,72,53 
7090 DATA 89,56,90,50,56,53,48,54,99,52,82,54,64,56,67,53, 100,52,72,54 
7100 DATA 100,50,58,56,52,50,97,55,64,51,100,56,75,56,83,50,92,52,91,56 
7110 DATA 46,50,72,52,108,50,88,52,59,56,96,55,65,53,92,55,81,50,98,54 
7120 DATA 49,55,56,51,100,54,64,50,83,56,52,56,88,55,66,53,68,55,56,55 
7130 DATA 82,56,105,50,52,55,88,51,60,51,10053,67,51,82,51,72,51,96,50 
7140 DATA 406,53,09,50,73,56,107,50,65,56,96,54,64,55,82,52,56,52,75,53 
7150 DATA 51,55,91,50,72,55,52,51,67,56,68,54,48,55,96,52,57,50,60,54 
7160 DATA 82,55,64,52,57,56,48,52,92,51,64,54,76,55,52,54,68,54,59,50 
7170 DATA 100,51,60,52,92,53,66,52,52,52,73,53 

7160 WAIT TIME 50 

7190 FOR X8=48 TO 108 

7200 DOT X8,47 14 WAIT TIME 2:NEXT 

7300 WAIT TIME 100 

7500 CURSOR 50, PRINT T Gitson” 

7600 WAIT TIME 120-PRINT CHR$(12) 

7610 CURSOR 18,3PRINT "ALIGNEZ-EN 5° 

7620 PRINT” ` Horizontajement, verticalement ou obliquement” 

7630 PRINT PRINT " Vous jouez contre l'ordinateur"; 
7640 WAIT TIME 200 
8000 RETURN 

30000 CURSOR 12,3PRINT "je gagne. Alors ? ... 
10050 WAIT TIME 150 

10100 RETURN 
20000 CURSOR 12,5:PRINT Pas mal, vous savez vous y prendre." 
20050 WAIT TIME 150 
20100 RETURN 
30000 CURSOR 12,3-PRINT "Vous voyez, je ne gagno pas” 
30010 WAIT TIME 50 
30100 CURSOR 12,3 PRINT "Encore un petit effort … pour me battre Jl" 
31000 RETURN 
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A vendre DAI + floppy 2x320kK (nov. 84) + poignées + magnéto + très 


nombreuses docs + centaine programmes + 15 disquettes + revues 75000 
Fb à débattre (11000 FF) achetés 140000 Fb. Vends imprimante TANDY 
DMP105 compatible DAI, 12600 Fb (1800 FF) début 86, état neuf. 
S'adresser à Dominique Guillot, 8 rue Diderot, F-42300 Roannes. 


x 


* 


A vendre, accessoires pour DAI : 
Carte Xbasic complète (avec Qsave et nouv. possibilités) 5999,- FB 


Drive 1541 état neuf avec cables et manuel 7999,- FB 
*/- 1700 pgms sur 75 disK + 1 gros classeur de 
modes d'emplois de programmes. (format DISK VC1541) 8999,- FB 
Paddle INDATA de précision (2 pieces) 1499,- FB 
Firmware manual original 599,- FB 
Interface pour imprimante Centronics (Epson...) 999,- FB 
Livre "Assembleur 8080 sur DAI" 599,- FB 
Série des revues du club francais DCF 599,- FB 
Livre "TOS désassemblé" 599,- FB 
Livre "Hardware du 8080" i 999,- FB 
Schémas électroniques du DAI 499,- FB 
Toute la série des DAInamic Germany + des DAInamic Belgium 3998,- FB 
Paddle 3 boutons (pour logiciels graphiques) 499,- FB 
22 cassettes DCR 1999,- FB 

Possibilité de prix spéciaux par lot. Christian Poels (IDC) 
A vendre : 

- ROM's BASIC V4.2 (cfr DAIclic 3) avec adaptateur DAI 1400, FB 
Lot de 25 disquettes bourrées de programmes (quasiment 
tout ce qui existe sur le DAI) au format KENDOS 800K 3750,- ЕВ 
Cassettes DCR PHILIPS certifiées digitales bourrées 
de programmes. La piece : 200,- FB boite de 6 cas. : 1000,- FB 
Interface SERIE - PARALLELE Mikroshop originale 3000,- FB 


Table de mixage HI-FI STEREO JB system NEW SA-101, 

10 entrées, master, pré-écoute, talk-over, mini-equalizer 

2x6 canaux. Idéal pour écouter de la musique tout en 

travaillant sur le DAI t! 9000,- FB 
Contacter Marc Vandermeersch (IDC) 


A vendre 
Souris montée et cablée pour le DAI 2000,- FB 
Imprimante EPSON MX-82 12000,- FB 
Interface joystick de type SPECTRAVIDEO (cf DAICLIC ) 400,- FB 
Cassettes DCR certifiées digitales (bourrees de pgms)piéce 200,- FB 
DAI (ancien clavier) avec sortie vidéo en supplément 14000,- FB 
Memocom MDCR + TOS (tan) 13000,- ЕВ 
: Paddle 3 potentiométres avec bouton event 500, FB 
Paddle manche-à-balai + 1 potentiométre + event 600,- FB 
Firmware manual de Boerighter 600,- FB 


Contactez Fabrice Duluins, 4 Allée Tour Renard, B-1400 NIVELLES 


Remarque : Ces petites annonces gratuites pour les abonnés sont 
exclusivement réservées а des propositions entre particuliers sans 
objectifs commerciaux et relatives à l'informatique. DAIclic se réserve 


le droit de refuser une annonce sans avoir à fournir de justification. 
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